How to insert font types to a combo

[Erick de la Torre]

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.

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.

[Erick de la Torre]

Thanks a lot