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
|