How can i insert to a combo the names and the picture of the fonts that have word perfect?.
Printable View
How can i insert to a combo the names and the picture of the fonts that have word perfect?.
This will add all the fonts to a Combobox.
Code:For i = 0 to screen.fontcount - 1
Combo1.additem(screen.fonts(i))
Next i
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
Text1.Text = Combo1.Text
End Sub
'Put it in the Combo1_Change event as well.
Thanks a lot