3D-текст на форме. Установите свойство формы AutoRedraw как True.

Private Sub Form_Load()
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 "3D Text!!!"
Next
End Sub