Rino_2 I see how the code works drawing the text over it self at 1x and 1y away from the previous. But how did DigitalError allow the first however many draws to be black then change the color. I'm putting the effect on a button control I'm making and I want the user to be able to change the color.

If anybody wants to help hers the code Rino_2 gave me.

this asumes you have a form with a picture box named Fx and a text box named text1

this code is placed in the text1_change sub
FX.Cls
For intCount = 1 To 250
intCount = intCount + 1
FX.ForeColor = RGB(intCount + 10, intCount + 10, 0)
FX.CurrentX = intCount: FX.CurrentY = intCount
FX.Print Text1.Text
Next intCount

I also need to center the text but I think I can do that fairly easy

------------------
SomeTimes Coffee Just Isn't Enough.
Zan Magi