Изменение угла наклона текста

Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W2 As Long, ByVal i As Long, ByVal u As Long, ByVal S As Long, ByVal c As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal f As String) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
 
Private Sub Form_Load()
  Picture1.ScaleMode = vbPixels
  Command1.Caption = "Печать текста 45°"
End Sub
 
Private Sub Command1_Click()
  
' Размер шрифта
  aRazmer = 24
  
' Градусы
  grad = 45
  
' Создаём шрифт
  aFont = CreateFont(aRazmer, 0, grad * 10, 0, 400, 0, 0, 0, 1, 1, 1, 2, 2, "Times New Roman")
  
' Выбираем созданный шрифт
  aFontOld = SelectObject(Picture1.hdc, aFont)
  
' Устанавливаем текущую позицию в левом нижнем углу формы
  Picture1.CurrentX = Picture1.ScaleWidth / 2
  Picture1.CurrentY = Picture1.ScaleHeight / 2
  
' Печатаем текст под углом 45 градусов
  Picture1.Print "Текст 45 градусов"
  
' Выбираем старый шрифт
  Call SelectObject(hdc, aFontOld)
' Удаляем шрифт
  Call DeleteObject(aFont)
End Sub