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

Формулировка задачи:

как это можно реализовать в VB? желательно что бы всегда при нажатии кнопки был разный угол

Решение задачи: «Изменение угла наклона текста»

textual
                            Листинг программы 
                        

                            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
                        