این سورس کد به یک تکست باکس و یک پیکچر نیاز دارد.

سورس :

'-------------\Reza_Mansory2007@Yahoo.com/-------------'
Private Sub Form_Load()
Text1 = "Reza"
Picture1.Left = 120
Picture1.Top = 120
Picture1.Font = "arial"
Picture1.Font.Size = 70
Picture1.Height = 1935
Picture1.Width = 7335
Text1.Width = 7335
Text1.Top = 2160
Text1.Left = 120
Width = 7665
Height = 3105
Picture1.AutoRedraw = True
Text1_Change
End Sub
Private Sub Text1_Change()
Picture1.Cls
For i = 1 To 255
Picture1.CurrentX = i / 2
Picture1.CurrentY = i / 2
Picture1.ForeColor = RGB(i, 0, i / 2)
Picture1.Print Text1
Next
End Sub