新建From1（窗体），新建List1（按钮ListBox），代码：

Private Sub Form_Activate()
    Print Screen.FontCount
End Sub

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To Screen.FontCount - 1
        Me.List1.AddItem (Screen.Fonts(i))
    Next
End Sub