如何取得计算机的所有字型？

　　取得屏幕字型：
　 Dim I As Long
　 For I = 0 To Screen.FontCount - 1
　　　 Combo1.AddItem Screen.Fonts(I)
　 Next
取得打印机字型：
　 Dim I As Long
　 For I = 0 To Printer.FontCount - 1
　　　 Combo2.AddItem Printer.Fonts(I)
　 Next