User1182280274 posted
try this:
Public Class TypeFont
Const GDI32 As String = "gdi32.dll"
Const USER32 As String = "user32.dll"
<DllImport(GDI32)>
Public Shared Function CreateFont(ByVal nHeight As Integer,
ByVal nWidth As Integer,
ByVal nEscapement As Integer,
ByVal nOrientation As Integer,
ByVal fnWeight As Integer,
ByVal fdwItalic As Integer,
ByVal fdwUnderline As Integer,
ByVal fdwStrikeOut As Integer,
ByVal fdwCharSet As Integer,
ByVal fdwOutputPrecision As Integer,
ByVal fdwClipPrecision As Integer,
ByVal fdwQuality As Integer,
ByVal fdwPitchAndFamily As Integer,
ByVal lpszFace As String) As Integer
End Function
Shared Function CreateFont(FontName As String, FontSize As Integer, Optional ByVal Escapement As Integer = 0, Optional ByVal Orientation As Integer = 0, Optional ByVal FontWeight As Integer = 0, Optional ByVal IsItalic As Integer = 0, Optional ByVal Underline As Integer = 0, Optional ByVal StrikeOut As Integer = 0, Optional ByVal Charset As Integer = 0, Optional ByVal OutputPrecision As Integer = 0, Optional ByVal ClipPrecision As Integer = 0, Optional ByVal Quality As Integer = 5, Optional ByVal PitchAndFamily As Integer = 0) As Font
Return Font.FromHfont(CreateFont(FontSize, 0, Escapement, Orientation, FontWeight, IsItalic, Underline, StrikeOut, Charset, OutputPrecision, ClipPrecision, Quality, 1, FontName))
End Function
End Class
Using:
Control.Font = TypeFont.CreateFont("XXXX", YYYY)
XXXX = Font Name
YYYY = Font Size (Pixel)
I hope it helped!