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