Повернуть текст на 90 градусов при выводе на печать (на принтер) в VB6

Option Explicit
 
Private Const LF_FACESIZE As Long = 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          As String * LF_FACESIZE
End Type
 
Private Declare Function CreateFontIndirect Lib "gdi32" _
                         Alias "CreateFontIndirectA" ( _
                         ByRef lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" ( _
                         ByVal hdc As Long, _
                         ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" ( _
                         ByVal hObject As Long) As Long
 
Private Sub Form_Load()
    Dim tLF         As LOGFONT
    Dim hFont       As Long
    Dim hPrevFont   As Long
    
    Me.AutoRedraw = True
    Me.FontName = "Arial"
    
    tLF.lfEscapement = -900
    tLF.lfHeight = (Me.FontSize * -20) / Screen.TwipsPerPixelY
    tLF.lfQuality = 2
    tLF.lfWeight = Me.Font.Weight
    tLF.lfFaceName = Me.FontName & vbNullChar
    
    hFont = CreateFontIndirect(tLF)
    
    If hFont = 0 Then
        MsgBox "Error " & Err.LastDllError
    Else
        
        hPrevFont = SelectObject(Me.hdc, hFont)
        Me.CurrentX = 400
        Me.CurrentY = 100
        Me.Print "Vertical Font"
        SelectObject Me.hdc, hFont
        DeleteObject hFont
        
    End If
    
End Sub