Draw 3D Text On Form

Preparations

Add 1 Command Button to your form.
Press the button to draw the text.

Form Code

Private Sub Command1_Click()

    Me.AutoRedraw = True
    ' you can change the font size and type.
    Me.FontSize = 30
    Dim ShadowX
    Dim ShadowY
    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 "VBTown!!!"
    Next
   
End Sub
Go Back