te paso una clase con una api indocumentada llamada
SetConsoleFont, igualmente no parece ser posible cambiarla a gusto, pero te la incrementa algo.
Clase:Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Runtime.InteropServices
Namespace ConsoleExtender
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Public Structure ConsoleFont
Public Index As UInteger
Public SizeX As Short, SizeY As Short
End Structure
Public NotInheritable Class ConsoleHelper
<DllImport("kernel32")> _
Private Shared Function SetConsoleFont(ByVal hOutput As IntPtr, ByVal index As UInteger) As Boolean
End Function
Private Enum StdHandle
OutputHandle = -11
End Enum
<DllImport("kernel32")> _
Private Shared Function GetStdHandle(ByVal index As StdHandle) As IntPtr
End Function
Public Shared Function SetConsoleFont(ByVal index As UInteger) As Boolean
Return SetConsoleFont(GetStdHandle(StdHandle.OutputHandle), index)
End Function
<DllImport("kernel32")> _
Private Shared Function GetConsoleFontInfo(ByVal hOutput As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal bMaximize As Boolean, ByVal count As UInteger, <MarshalAs(UnmanagedType.LPArray), Out()> ByVal fonts As ConsoleFont()) As Boolean
End Function
<DllImport("kernel32")> _
Private Shared Function GetNumberOfConsoleFonts() As UInteger
End Function
Public Shared ReadOnly Property ConsoleFontsCount() As UInteger
Get
Return GetNumberOfConsoleFonts()
End Get
End Property
Public Shared ReadOnly Property ConsoleFonts() As ConsoleFont()
Get
Dim fonts As ConsoleFont() = New ConsoleFont(GetNumberOfConsoleFonts() - 1) {}
If fonts.Length > 0 Then
GetConsoleFontInfo(GetStdHandle(StdHandle.OutputHandle), False, CUInt(fonts.Length), fonts)
End If
Return fonts
End Get
End Property
End Class
End Namespace
Modulo:Module Module1
Sub Main()
Dim fonts = ConsoleExtender.ConsoleHelper.ConsoleFonts
For f As Integer = 0 To fonts.Length - 1
Console.WriteLine("{0}: X={1}, Y={2}", fonts(f).Index, fonts(f).SizeX, fonts(f).SizeY)
Next
ConsoleExtender.ConsoleHelper.SetConsoleFont(9)
Console.ReadLine()
End Sub
End Module
saludos.