فونت ویندوز

[ayda.eslami]

سلام به همه
می خواستم بدونم با چه دستوری میتونم دسترسی داشته باشم به فونت های ویندوز؟
می خام با یه حلقه فونت ها رو بریزم توی کامبو که به کاربر بگم یه فونت رو انتخاب کنه..

[Fery666]

سلام .
اینم کد :

Imports System.Drawing.Text



Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fonts As InstalledFontCollection = New InstalledFontCollection()

        Try

            For Each font As FontFamily In fonts.Families

                ComboBox1.Items.Add(font.Name)

            Next font

        Catch



        End Try



    End Sub

End Class