Show Font dialog and get select font and font 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.WriteLinedlgFont.Font )

            Console.WriteLinedlgFont.Color )

        End If



    End Sub

End Class



           

       

Leave a Reply