[VB] Membuat 3D Text Sederhana

Deklarasi:
1 Form
1 CommandButton

Source Code:

Private Sub Command1_Click()
 Call Print3DText(50, 50, "Crowja-Coderz", 30)
End Sub

Sub Print3DText(ByVal X As Single, Y As Single, sText As String, FontSize As Byte)
 Form1.ScaleMode = 3
 Form1.Font.Size = FontSize
 Form1.Font.Name = "Lucida Console"
 For i = 0 To 200
      Form1.ForeColor = RGB(i + 5, i + 5, i + 5)
     Form1.CurrentX = X + Int(i / 13)
     Form1.CurrentY = Y + Int(i / 13)
      Form1.Print sText
 Next
End Sub

Jangan Lupa Komentar Yaa..