Puoi usare la CreateFont. Certo, ha qualche parametro, ma se devi creare un font, quelle cose gliele devi dire !

Allora, ti servono queste costanti e queste API

codice:
Public Const CLIP_DEFAULT_PRECIS = 0
Public Const PROOF_QUALITY = 2
Public Const DEFAULT_PITCH = 0

Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal nHeight As Long, ByVal nWidth As Long, _
								    ByVal nEscapement As Long, ByVal nOrientation As Long, _
								    ByVal fnWeight As Long, ByVal fdwItalic As Boolean, _
								    ByVal fdwUnderline As Boolean, ByVal fdwStrikeOut As Boolean, _
								    ByVal fdwCharSet As Long, ByVal fdwOutputPrecision As Long, _
								    ByVal fdwClipPrecision As Long, ByVal fdwQuality As Long, _
								    ByVal fdwPitchAndFamily As Long, ByVal lpszFace As String) As Long
Public Declare Function MulDiv Lib "kernel32" (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Nella Sub Matrix devi dichiarare queste variabili

codice:
Dim oldFont As Long, newFont As Long
la chiamata alla GetDC e' bene che sia

codice:
CHIAMAID = GetDC(HWND_DESKTOP)
dopo la SetTextColor devi scrivere

codice:
newFont = CreateFont(-MulDiv(10, GetDeviceCaps(CHIAMAID, LOGPIXELSY), 72), 0, 0, 0, _
                     FW_NORMAL, True, False, False, DEFAULT_CHARSET, _
                     OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, _
                     PROOF_QUALITY, DEFAULT_PITCH, "Times New Roman")
oldFont = SelectObject(CHIAMAID, newFont)
e alla fine, dopo la End Select

codice:
SelectObject CHIAMAID, oldFont
DeleteObject newFont
P.S. attenzione a non aprire messaggi come quello che hai aperto per "attirare" la mia attenzione ... questa non e' una chat e dovresti avere pazienza e attendere i messaggi di risposta ...
Non voglio fare il "moderatore" ma avvertirti per evitare una "moderazione" (che mi sembra inevitabile ...)