最近偶碰到这样一个题目：
新建一个工程，实现功能点击Command1按扭，读取系统的汉字字型，在ComBox列表框中显示。

这个究竟咋办啊，高手 高手 你在哪？？？

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Screen.FontCount - 1 Step 2 '不要问为什么，自己看看效果，你还要汉字类型啊，那自己加条件句吧
Combo1.AddItem Screen.Fonts(i)
Next
End Sub