＇在FORM1中加入一个ListBox，并在FORM1中加入如下代码：
Private Sub FORM_Load()
Dim counter As Integer
For counter = 0 To Screen.FontCount - 1
list1.AddItem Screen.Fonts(counter)
Next
End Sub
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
End Sub