Membuat Teks Kelap-Kelip

Source code berikut untuk membuat teks kelap-kelip dengan Visual Basic 6. Contok di bawah ini menggunakan interval timer dengan 700.

Buat suatu project dengan :
1 Form
1 Label
1 Timer (Interval : 700)

Copy source code berikut pada Form :

Option Explicit

Dim lngLoop As Long
Dim merah, hijau, biru As Long

Private Sub Form_Load()
   lngLoop = 0
   Timer1.Interval = 700
   Label1.Caption = "Sedang mencoba tulisan kelap-kelip"
End Sub

Private Sub Timer1_Timer()
   lngLoop = lngLoop + 1
   If lngLoop = 1000000 Then lngLoop = 0
   merah = Int(255 * Rnd)    'angka random untuk merah
   hijau = Int(255 * Rnd)      ' angka random untuk hijau
   biru = Int(255 * Rnd)       'angka random untuk biru
   Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna
   If lngLoop Mod 2 = 0 Then
      Label1.Visible = True  'Tampilkan label
   Else
      Label1.Visible = False 'Sembunyikan label
   End If
End Sub