Renkli daireler ekran koruyucu gibi birde kayan form başlığı

Forma 2 tane timer ekleyin. timer1 in intervali 1500 timer2 nin intervalini 50 yapın ve aşağıdaki kodları forma yapıştırın...

Private Sub Form_Load()
Form1.caption="[email protected]"
Me.AutoRedraw = True
Me.BackColor = RGB(0, 0, 0)
Me.DrawMode = 5
Me.DrawWidth = 3
Me********State = 2
End Sub

Private Sub Timer1_Timer()
Dim A
Dim b
For A = 1 To Me.Width / 15
b = b + 1
Me.Line (A * 15, 0)-(A * 15, Me.Height), RGB(255, b, 255)
Me.Line (0, A * 15)-(Me.Width, A * 15), RGB(b, b, 255)
Me.Circle (Me.Width / 2, Me.Height / 2), A * 15, RGB(b, b, 255)
Me.Circle (Me.Width / 1.5, Me.Height / 1.5), A * 15, RGB(0, b, 255)
Me.Circle (Me.Width / 4, Me.Height / 4), A * 15, RGB(255, b, b)
Me.Circle (Me.Width / 6, Me.Height / 6), A * 15, RGB(b, 0, 255)
Me.Circle (Me.Width, Me.Height), A * 15, RGB(b, 255, 255)
'Me.Refresh
DoEvents
Next
End Sub

Private Sub Timer2_Timer()
Form1.Caption = Right(Form1.Caption, 1) & _
Left(Form1.Caption, Len(Form1.Caption) - 1)
End Sub