Change Font Style in Windows form using FontDialog Control

Private Sub lnklblFontChange_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnklblFontChange.LinkClicked

        Dim dr As New DialogResult

        dr = FontDialog1.ShowDialog()

        If dr = Windows.Forms.DialogResult.OK Then

            Label1.Font = FontDialog1.Font

        End If

    End Sub