Memutarkan huruf pada watermark, bagaimana caranya?

Mengenai cara memutarkan atau merotasi font pada watermark menggunakan VB6 (belajar Visual Basic 6 untuk pemula) - Posting ini merupakan kelanjutan dari posting yang telah ditulis terdahulu. Disini kita akan menambahkan beberapa kemampuan pada project watermark yang sedang kita buat. Perhatikan kode di bawah ini:

'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' coder: Administrator 
'--------------------------------------------------------------------------------------- 
Option Explicit 
 
Private Declare Sub InitCommonControls Lib "comctl32.dll" () 
 
Dim intCurrentX As Integer 'variabel untuk menyimpan koordinat X 
Dim intCurrentY As Integer 'variabel untuk menyimpan koordinat Y 
 
Private Sub Command1_Click() 
    'memanggil prosedur RotateFont 
    RotateFont Picture1, Val(txtSize), txtFontName, intCurrentX, intCurrentY, Val(txtDegree), txtWatermark 
    'menyimpan hasil gambar yang telah diberi teks 
    SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'and save  Exit Sub 
End Sub 
 
Private Sub Form_Initialize() 
    InitCommonControls 'XP style 
End Sub 
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 
    Label3 = "X: " & x 'menampilkan koordinat X ke dalam label 
    Label4 = "Y: " & y 'menampilkan koordinat Y ke dalam label 
    intCurrentX = x 'simpan koordinat x dalam variabel intCurrentX 
    intCurrentY = y 'simpan koordinat y dalam variabel intCurrentY 
    WaterMarkIt 'panggil prosedur WaterMarkIt 
End Sub 
 
Private Sub txtDegree_Change() 
    'apabila bukan angka, jadikan txtDegree.Text = 90 
  If Not IsNumeric(txtDegree.Text) Then txtDegree.Text = "90" 
End Sub 
 
Private Sub VScroll1_Scroll() 
    'panggil prosedur WaterMarkIt pada saat terjadi Scroll 
    WaterMarkIt 
End Sub 
 
Private Sub VScroll1_Change() 
    'panggil prosedur WaterMarkIt pada saat terjadi perubahan nilai 
    WaterMarkIt 
End Sub 
 
Private Sub VScroll2_Change() 
    WaterMarkIt 'panggil prosedur WaterMarkIt 
End Sub 
 
Private Sub VScroll2_Scroll() 
    WaterMarkIt 'panggil prosedur WaterMarkIt 
End Sub 
'-------------------------------------------------------------------- 
' Prosedur WaterMarkIt 
'-------------------------------------------------------------------- 
Private Sub WaterMarkIt() 
    Command1_Click 'panggil Command1_Click (Rotasi dan simpan image) 
    txtDegree.Text = VScroll1.Value 'txtDegree berdasarkan nilai VScroll1 
    txtSize.Text = VScroll2.Value 'txtSize berdasarkan nilai VScroll2 
End Sub 

Download Project