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.Font = set your font here
If dlgFont.ShowDialog() = DialogResult.OK Then
Console.WriteLine( dlgFont.Font )
Console.WriteLine( dlgFont.Color )
End If
End Sub
End Class
|