Imports System.IO
Imports System.Windows.Forms
public class FontDialogSelectedFont
public Shared Sub Main
Dim FontDB As New FontDialog()
If (FontDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine(FontDB.Font)
End If
End Sub
End class