Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

FontDialog Color

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