How to Draw 3D text on form

Home » Graphics » How to Draw 3D text on form

Posted on January 5, 2009

'Graphics - How to Draw 3D text on form

Option Explicit
 
Private Sub Command1_Click()
    Dim I As Integer, ShadowX, ShadowY
    Me.AutoRedraw = True
    Me.FontSize = 30
    ScaleMode = 3
    ForeColor = "&H808080"
    ShadowY = 5
    ShadowX = 5
    For I = 0 To 5
        CurrentX = ShadowX + I
        CurrentY = ShadowY + I
        If I = 5 Then Form1.ForeColor = vbWhite
        Form1.Print "http://codeitbetter.com/"
    Next I
End Sub