Mega Code Archive

 

Categories / VB.Net / GUI

 

Font dialog

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