System Windows Forms VB.Net by API

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