Code snippet : how to use fontdialog in vb.net

 
How to use fontdialog in vb.net

 Private Sub Button1_Click(ByVal sender As System.Object, _
                     ByVal e As System.EventArgs) Handles Button1.Click
    Dim objFontDlg As New FontDialog
    If objFontDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
        Label1.Font = objFontDlg.Font
        TextBox1.Font = objFontDlg.Font
    End If
End Sub