list of font name

[jannati]

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

[__siavash__]

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
DoEvents
Next
MsgBox Screen.FontCount & " Found !"
End Sub

[jannati]

عالــــی بود.واقعا ممنونم