Dim ttfPath As String = System.IO.Path.Combine(My.Application.Info.DirectoryPath, "fon", "CODE39.ttf") Dim pfc As New System.Drawing.Text.PrivateFontCollection() pfc.AddFontFile(ttfPath) Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font(pfc.Families(0), 48.0F) Me.Label1.Text = "*VISUAL BASIC*"