ListBoxに金額を表示したいんですが、
左揃えだと見難くて困ってます。
なるべく簡単に
左揃えにする方法ないでしょうか？

例
12,000
8,000
123,000

   ↓

12,000
  8,000
123,000

こんな感じに

ヨロシクお願いします。

> 左揃えにする方法ないでしょうか？


タイトルでは左では無く右、ですね？

通常、こう言う時は左側に空白を付けて
全体の桁数を合わせる様にします。
Light(space(6) & "123",6) 等の様に。
なお。フォントもＰ付き（プロポーション）だとずれますよ。

ここの[他のコントロール関係]の[コンボボックス・リストボックスで項目を右揃えで表示する]
では、だめだったのでしょうか？(;_;)

次のようにすれば大丈夫かと。
これならば、フォントとか関係なく、右揃えになります。
スペースの挿入・削除の処理も必要ありませんし。

---------------------------------------------------------------------------------
Option Explicit
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE As Long = (-20&)
Private Const WS_EX_RIGHT As Long = &H1000&
Private Sub Form_Load()
  Dim l As Long
  l = GetWindowLong(List1.hwnd, GWL_EXSTYLE)
  l = l Or WS_EX_RIGHT
  Call SetWindowLong(List1.hwnd, GWL_EXSTYLE, l)
  List1.AddItem "AAAA"
  List1.AddItem "bbbbbbbbbb"
End Sub

nobuさん　花ちゃんさん　とろさん　
有難うございました