CodeItBetter Programming Another VB Programming Blog

'Fonts - How to Browse and Preview Installed Fonts

'Add a List Box to your form.

Private Sub Form_Load()
    Dim iCount As Integer
    For iCount = 0 To Screen.FontCount - 1
        List1.AddItem Screen.Fonts(iCount)
    Next iCount
End Sub
 
Private Sub List1_Click()
    Static sHeight As Single
    If sHeight = 0 Then
        sHeight = List1.Height
    End If
    List1.Font.Name = List1.List(List1.ListIndex)
    List1.Height = sHeight
End Sub