ListBoxをMSゴシックにして
for i= 0 to 10
cc = 30 - TextWidth(Name(i)) / TextWidth(" ")
mes = Name(i) & space(cc) & "*"
List1.AddItem mes
next

 30文字目に*をそろえて表示したいのだが、どうしてもそろわない。
 なぜだ?