فهرست کردن فونتها در لیست باکس

[vb2005]

سلام دوستان،من چند روش برای فهرست کردن فونت ها امتحان کردم ولی زمان زیادی طول میکشه.
سریع ترین راه فهرست کردن فونتها در لیست باکس چیه؟

[butterfly8528]

سلام .


Private Sub Form_Load()
Me.AutoRedraw = True
Dim x As Single, y As Single, sum As Single
x = Timer
Print "Begin : " & x
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
Combo1.Text = Screen.Fonts(0)
y = Timer
Print "Finish : " & y
Print "----------------------------------------------------------------------------"
sum = y - x
Print "Time To Add Fonts To ComboBox : " & sum
End Sub

موفق باشید .

[vb2005]

ممنونم دوست عزیز،ولی کمکی بهم نکرد...روش دیگه ای نیست؟