Font seçim ekranını seçerek, seçilen değerleri değişkenlere atıyoruz ve Set ediyoruz.
Dim fontGoster As New FontDialog
fontGoster.ShowDialog()
Dim fontAdi As String
Dim fontBoyutu As Integer
fontAdi = fontGoster.Font.Name
fontBoyutu = fontGoster.Font.Size
Label1.Text = "DeaLyDeviL"
Label1.Font = New System.Drawing.Font(fontAdi, fontBoyutu)