Printer.Fonts(i)

Във форма искам да сложа combobox с шрифтовете на принтера. сега съм направил това, но то работи доста бавно минават 3-4 секунди докато се появи формата. има ли по-добър начин.


Private Sub Form_Load()
Dim i As Integer
Dim fontName As String

For i = 0 To Printer.FontCount - 1
cboFonts.AddItem Printer.Fonts(i)
Next i

EnumFontFamilies