How to insert font types to a combo

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