Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass Shared Sub Main() Dim dlgFont As System.Windows.Forms.FontDialog dlgFont = New System.Windows.Forms.FontDialog dlgFont.ShowColor = True If dlgFont.ShowDialog() = DialogResult.OK Then End If End Sub End Class