Cara membuat Teks Berjalan dan Kerlap Kerlip pada Visual Basic 6.0

Buatlah sebuah project dengan standartd EXE. Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa menggunaka nilai 20 untuk masing-masing timer. Nah, kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip. Buatlah 2 buah label. Nah, label yang pertama digunakan untuk teks berjalan tadi dan label yang kedua akan kita gunakan untuk teks kerlap kerlip tadi. Sudah semuanya........ Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor rekan-rekan. Nah kalau malas copy paste saja. Dim Red, Green, Blue As Integer Private Sub Timer1_Timer() If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then Green = 0 Red = Red + 50 End If If Red >= 255 Then Red = 0 End If Label1.ForeColor = Int(RGB(Red, Green, Blue)) Label1.Refresh End Sub Private Sub Timer2_Timer() Label2.Left = Label2.Left - 15 If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom. Label2.Left = Form1.Width End If End Sub Sumber:http://jenggotcommunity.blogspot.com/2008/12/cara-membuat-teks-berjalan-dan-kerlap.html