Visual Basic Kod Bankası - Formdaki yazıyı döndürmek

Formdaki yazıyı döndürmek

' Module Eklenecek kısım

Option Explicit
Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W 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
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

' Forma eklenecek kısım
Option Explicit
Private Sub DrawRotatedText(ByVal txt As String, _
ByVal X As Single, ByVal Y As Single, _
ByVal font_name As String, ByVal size As Long, _
ByVal weight As Long, ByVal escapement As Long, _
ByVal use_italic As Boolean, ByVal use_underline As Boolean, _
ByVal use_strikethrough As Boolean)
Const CLIP_LH_ANGLES = 16 ' Needed for tilted fonts.
Const PI = 3.14159625
Const PI_180 = PI / 180#
Dim newfont As Long
Dim oldfont As Long
newfont = CreateFont(size, 0, _
escapement, escapement, weight, _
use_italic, use_underline, _
use_strikethrough, 0, 0, _
CLIP_LH_ANGLES, 0, 0, font_name)
oldfont = SelectObject(hdc, newfont)
CurrentX = X
CurrentY = Y
Print txt
newfont = SelectObject(hdc, oldfont)
DeleteObject newfont
End Sub
Private Sub Command1_Click()
Const FW_NORMAL = 400
Static angle As Long
Cls
DrawRotatedText "Chris", 100, 100, _
"Times New Roman", 20, _
FW_NORMAL, angle * 10, _
False, False, False
angle = angle + 10
End Sub
Private Sub Form_Load()
Command1.Caption = "Yönü Değiştir"
End Sub