Programming: Escribir texto en 3 dimensiones en Visual Basic 6

lo primero que vamos a hacer es crear un nuevo proyecto, y en el formulario vamos a añadir un boton y un textbox de este modo:

y ponemos este codigo al presionar el boton:

Dim I As Integer, X As Integer, Y As Integer
ForeColor = &HFF0000: X = CurrentX: Y = CurrentY
CurrentX = X: CurrentY = Y: FontSize = 14
For I = 1 To 50
Print Text1.Text
X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
Next I
ForeColor = &HFF00&
Print Text1.Text

y cuando presionen el boton les aparecera asi: