combo選單，只載入字型true type(編號：573)

以下這段程式，如何只載入TRUETYPE字型呢？
With Combo1 '載入字型
For intcount = 0 To Screen.FontCount - 1
　　.AddItem Screen.Fonts(intcount)
　　Next
End With