Membuat Text Berkedip di VB 6.0

Unknown | 22:44 | vb6
Source code berikut untuk membuat tulisan pada label (teks) berkedip berwarna-warni.

caranya :

1. Buat 1 project Standard.EXE dengan :

• 1 Form
• 1 Label
• 1 Timer

2. Copy source code berikut pada Form : 

 Dim i As Long
Dim merah, hijau, biru As Integer

Private Sub Form_Load()
  i = 0     'Inisialisasi detik
  Timer1.Interval = 100   'Kalau 1000 biasanya lompat 1 detik
  Label1.Caption = "Ini contoh tulisan kelap-kelip"
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

3. Jalankan program dan lihat hasilnya