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