Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' Sets the ShowApply property, then displays the dialog.
    FontDialog1.ShowApply = True
    FontDialog1.ShowDialog()

End Sub

Private Sub FontDialog1_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply

    ' Applies the selected font to the selected text.
    RichTextBox1.SelectionFont = FontDialog1.Font

End Sub

' 导入命名空间
Imports System.Drawing
Imports System.Windows.Forms

public class FontDialogProperty
   public Shared Sub Main


        Dim FontDialog1 As FontDialog = New System.Windows.Forms.FontDialog
        
        Dim objNewFont As Font

        objNewFont = New Font("Verdana", 12, FontStyle.Underline)
        With FontDialog1
            .Font = objNewFont
            .AllowScriptChange = False
            .ShowColor = True
            .Color = Color.Blue
            .ShowApply = True
            '.ShowEffects = False
        End With

        If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Console.WriteLine(FontDialog1.Font)
            Console.WriteLine(FontDialog1.Color)
        End If

   End Sub
End class