مبتدی :نمایش لیست فونتهای پرینتر در برنامه ویژوال بیسک 6

با استفاده از کد زیر و قرار دادن این کد در یک command و اضافه کردن یک لیست باکس به فرم می توان تعداد فونتهای قابل دسترسی پرینتر را در لیست باکس مشاهده کرد

Private Sub Command1_Click()
Dim i
For i = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(i)
Next i
End Sub

تعریف متغیر با استفاده از Dim و استفاده از خاصیت FontCount برای بدست آوردن تعداد فونتهای قابل دسترسی