Private Sub Command1_Click()
Dim I As Integer
Dim X As Integer
Dim Y As Integer

Me.ForeColor = &H0
X = Me.CurrentX
Y = Me.CurrentY

Me.FontSize = 18

For I = 1 To 70
Print "Texto en 3D"
X = X + 1
Y = Y + 1
Me.CurrentX = X
Me.CurrentY = Y
Next I

Me.ForeColor = &HFFFFFF
Print "Texto en 3D"
End Sub