Private Sub btnFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFont.Click
  Me.FontDialog1.ShowDialog()
  Me.lblMessage.Font = Me.FontDialog1.Font
End Sub 'btnFont_Click