问： 怎么得到系统的所有字体 ？--------------------------------------------------

获得系统中的所有字体列表 
 
 
　在Form1中加入一个ListBox，并在Form1中加入如下代码：
Private Sub Form_Load()
Dim counter As IntegerFor counter = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(counter)
Next
End SubPrivate Sub List1_Click()
Static tempheight As SingleIf tempheight = 0 Then tempheight = List1.Height
List1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight
End Sub