1 2 3 |
Dim f As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection() f.AddFontFile("C:\Victorian Gothic One.ttf") Label1.Font = New Font(f.Families(0), 30) |
1 2 3 |
Dim f As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection() f.AddFontFile("C:\Victorian Gothic One.ttf") Label1.Font = New Font(f.Families(0), 30) |