Private Sub listFonts()
    Dim wd As Object, fontID As Variant

    Set wd = CreateObject("Word.Application")

    For Each fontID In wd.FontNames
        Me.List1.AddItem fontID
    Next
    wd.Quit
    Set wd = Nothing
End Sub

อันนี้คือไม่ Sort ถ้าจะ sort ก็เอาไปใส่ตารางแล้ว sort เอาครับ

กรณีจะเลือก font ผมแนะนำให้ใช้ Win API จะดีกว่า เพราะทำงานได้เร็วกว่าการไปสร้างไฟล์ word แล้วไปดึงรายชื่อ font ออกมา

ตัวอย่างการใช้ Win API โหลดได้จาก

http://www.lebans.com/fontcolordialog.htm