[Abu Ehab]

جلب كل الخطوط الموجوده عندك على الجهاز وعرضها في لست بكس :

كود :

    Dim allFonts As New Drawing.Text.InstalledFontCollection
        Dim fontFamilies() As FontFamily = allFonts.Families()

        For Each Fnt In allFonts.Families
            ListFonts.Items.Add(Fnt)
        Next

---

وبعدها أبحث في اللست وشوف حل لمشكلتك