Home / Tutorial / Cara membuat suatu label di VB 6.0 berganti-ganti warna dengan sendirinya

Cara membuat suatu label di VB 6.0 berganti-ganti warna dengan sendirinya

Oke... Gan , kali ini saya mau berbagi ilmu tentang cara membuat warna-warni pada suatu kata di vb 6.00 ,,, cara nya gampang kok,,, Langsung ajja gan >>>

1. Buka visual basic nya , lalu pilh Standard EXE
2. Masukan 1 buah label dan 1 buah Timer,

3. Ganti Caption label1 menjadi "TEST BERGANTI WARNA"
4. Set Interval Timer1 menjadi 700 dan Enabled=True
5. Masukan kode berikut ini:

    Private Sub Timer1_Timer()
    If Label1.ForeColor = vbRed Then
        Label1.ForeColor = vbGreen
    ElseIf Label1.ForeColor = vbGreen Then
        Label1.ForeColor = vbBlue
    Else
        Label1.ForeColor = vbRed
    End If
    End Sub

6. Jalankan programnya!!