Trik ngebuat efek marquee(yang biasanya di html) dalam VB dan juga efek pantul.

- Marquee
Yang kita perlukan cuman 1 form 1 timer (Interval = 1) dan 1 label. Kalo udah copy paste

(kalo mau diketik juga gak apa-apa)
code berikut:

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 10
If Label1.Left = (-1200) Then Label1.Left = 4680
End Sub

Jangan lupa set property left label1 menjadi 4680.

- Pantul
kali ini kita membutuhkan 2 timer 1 form dan 1 label dan property jangan lupa property enabled pada timer2 di nonaktifkan (false).

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 10
If Label1.Left = 0 Then
   Timer1.Enabled = False
   Timer2.Enabled = True
End If
End Sub


Private Sub Timer2_Timer()
Label1.Left = Label1.Left + 10
If Label1.Left = 3360 Then
   Timer2.Enabled = False
   Timer1.Enabled = True
End If
End Sub


by sp1k3y cool on vb-bego[dot]com