How can i set font without commondialog???

[MidgetsBro]

If you want to let the user choose what font to use, just load the fonts into a listbox/combo box, then set the font using text1.font = list1.text or combo1.text. The code to load the fonts into a listbox is below.

Private Sub Form_Load()
Dim intCount
For intCount = 1 To Screen.FontCount
     List1.AddItem Screen.Fonts(intCount)
Next intCount
End Sub