Caption Form berjalan + Background gonta-ganti

Ini adalah contoh program sederhana membuat caption pada form
berpindah huruf pertama ke belakang dan seterusnya.
Juga cara sederhana mengganti warna latar belakang form.

Hal ini sebenarnya sangat sederhana....
Kita hanya menggunakan fungsi manipulasi string (left dan right)
serta Qbcolor (u/ ganti warna)...
----------
source code:

Private Sub Timer1_Timer()
  Me.BackColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer2_Timer()
  a = Left(Me.Caption, 1)
  b = Right(Me.Caption, Len(Me.Caption) - 1)
  Me.Caption = b & a
End Sub
----------

Jangan lupa letakkan 2 timer di form. Set Enabled=true dan Interval=100 (berarti 100 ms).
Selamat mencoba....have a nice day!