Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Const LF_FACESIZE =  32 
Private Type LOGFONT
    lfHeight As Long
    lfWidth As Long
    lfEscapement As Long
    lfOrientation As Long
    lfWeight As Long
    lfItalic As Byte
    lfUnderline As Byte
    lfStrikeOut As Byte
    lfCharSet As Byte
    lfOutPrecision As Byte
    lfClipPrecision As Byte
    lfQuality As Byte
    lfPitchAndFamily As Byte
    lfFaceName(LF_FACESIZE) As Byte
End Type


Const DEFAULT_QUALITY =  0 
Const DRAFT_QUALITY =  1 
Const PROOF_QUALITY =  2 
Const NONANTIALIASED_QUALITY =  3 
Const ANTIALIASED_QUALITY =  4 


Private Sub Form_Load()
    Dim RotateMe As LOGFONT
    Dim rFont As Long
    Dim sFont As String
    
    Me.AutoRedraw = True
    
    sFont = "Arial Cyr"

    For i =  0  To Len(sFont) -  1 
        RotateMe.lfFaceName(i) = Asc(Mid(sFont, i +  1 ,  1 ))
    Next
    
    RotateMe.lfHeight =  72 
    RotateMe.lfQuality = ANTIALIASED_QUALITY
    
    rFont = CreateFontIndirect(RotateMe)
    Curent = SelectObject(Me.hdc, rFont)
    
    Me.CurrentX =  160 
    Me.CurrentY =  100 
    Me.Print "Привет Какашкин!"
End Sub