Membuat Label Kelap-kelip (Blink)

'Deskripsi: Contoh penggunaan control Label dan Timer untuk menampilkan
'           tulisan kedap-kedip di atas form Anda (blink).
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat satu proyek baru dengan 1 Form, 1 Label, dan 1 Timer
'           2. Copy-kan coding berikut ke dalam editor form yang bertalian.
'--------------------------------------------------------------------------

Dim i As Long                       'Deklarasi
Dim merah, hijau, biru As Integer   'Variabel global

Private Sub Form_Load()
 i = 0     'Inisialisasi detik
 Timer1.Interval = 500   'Kalau 1000 biasanya lompat 1 detik
End Sub

Private Sub Timer1_Timer()
 i = i + 1
 If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...
 merah = Int(255 * Rnd)    'Bangkitkan angka random untuk merah
 hijau = Int(255 * Rnd)    'Bangkitkan angka random untuk hijau
 biru = Int(255 * Rnd)     'Bangkitkan angka random untuk biru
 Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna
 If i Mod 2 = 0 Then       'Jika counter habis dibagi 2
    Label1.Visible = True  'Tampilkan label
 Else                      'Jika counter tidak habis dibagi 2
    Label1.Visible = False 'Sembunyikan label
 End If                    'Akhir pemeriksaan
End Sub