[الطالب]

سلام

هذا مثال

كود :

Public Class Form1

    Dim privateFonts As New Drawing.Text.PrivateFontCollection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        privateFonts.AddFontFile(Application.StartupPath & "\Motken K Nasim.ttf")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Font = New Font(privateFonts.Families(0), 16, FontStyle.Bold)
    End Sub

End Class

موفقين