如何得到某字体支持的字体大小？

Question

Private Sub Form_Load()
    For i = 0 To Screen.FontCount
        Debug.Print Screen.Fonts(i)
    Next i
End Sub
______________
得到屏所支持的全部字体名称，问：当用户在列表框中选择了一种字体时，如何在别一个列表框中得到该字体所支持的全部字体大小呢？ 
——————————————————
因为哪个字体支持的字体大小是不同的，例如：FIXEDSYS：只支持9、12。

Answer 1

你可以用一个Label控件，设置其字体，字号设为3，循环给其字号加大0.01，再打印其字号便可。示例代码如下：
Dim sngFontSize As Single
Dim i As Long
sngFontSize = 3
Label1.FontName = "宋体"
For i = 1 To 100000
    sngFontSize = sngFontSize + 0.01
    Label1.FontSize = sngFontSize
    Debug.Print Label1.FontSize
Next i