Get selected Font and Font Color through Font Dialog

This code sample shows how to get selected font and color through font dialog object in :

Private Sub GetFont()
    Dim objFont As New System.Windows.Forms.FontDialog
    objFont.ShowColor = True
    If objFont.ShowDialog = DialogResult.OK Then
        MessageBox.Show("Selected Font : " & objFont.Font.ToString())
        MessageBox.Show("Selected Font color : " & objFont.Color.ToString())
    End If
End Sub