فونت ویندوز

[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