Mira yo tengo esto no se si te servira pero probemos! Lo hice x necesidad para un programa.
Necesitas: 1 boton, 3 huevos y 1/2 de harina
Se Me Olvidaba, Feliz 2007 Vieja!
Necesitas: 1 boton, 3 huevos y 1/2 de harina
Código [Seleccionar]
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
Se Me Olvidaba, Feliz 2007 Vieja!