Browse And Preview Installed Fonts
'Add 1 List Box to your form. The List Box will be populated with
all installed fonts.
'When you click on one of the fonts, the List Box will change its font to the clicked font.
'Insert this code to your form:
Private Sub Form_Load()
Dim counter As Integer
For counter = 0 To Screen.FontCount - 1
Private Sub List1_Click()
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
List1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight