Animasi Form Blink-Blink

Animasi dalam visual basic pada saat ini sangat di butuhkan bagi para programmer untuk menarik customer software. dibawah ini source code yang saya kopi di yogya forum dengan animasi form blink-blink
Private Sub Timer1_Timer()
Dim Tm As Double
Dim strText As String
Dim Ctr As Integer


With Form1
.BackColor = RGB(0, 255, 0)
.FontName = "Arial Black"
.FontSize = 24
.FontBold = True
'.FontItalic = True
.FontUnderline = True
End With

strText = "YaDoY666 WuZ HeRe...!!!"
x = CurrentX
y = CurrentY
x = 100 'Set the position of the_
y = 100 'text here x = ? ,y = ?
For Ctr = 0 To 255
ForeColor = RGB(0, 0, Ctr)
x = x + 1
y = y + 1
CurrentX = x
CurrentY = y
Print strText
Next Ctr
ForeColor = RGB(0, 0, 0)
CurrentX = x: CurrentY = y
Print strText
For Tm = 1 To 300000

DoEvents
Next Tm

Form1.Cls
End Sub