Imports System.Drawing.Text
Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim customfont As PrivateFontCollection = New PrivateFontCollection
customfont.AddFontFile("C:\NanumBarunGothicBold.ttf")
Label1.Font = New Font(customfont.Families(0), 20)
End Sub
End Class