Blinking Text

Blinking Text

Pertama Buatlah 

• Command Button
• Label
• Timer

Copy Source code di "Form Code"

Private Sub Command1_Click()
If Command1.Caption = "Blinking" Then Cek apakah caption command adalah "blinking"
    Timer1.Enabled = True mengaktifkan blinking
    Command1.Caption = "Stop" Mengubah Label Command1 menjadi "Stop"
ElseIf Command1.Caption = "Stop" Then Cek apakah caption command adalah "stop"
    Timer1.Enabled = False Menonaktifkan Blinking
    Command1.Caption = "Blinking" Mengubah Label Command1 menjadi "Blinking"
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = False Menonaktifkan Blinking
Label1.Caption = "Welcome" Mengubah Caption Label1 menjadi "Welcome"
Command1.Caption = "Blinking" Mengubah Caption Command1 menjadi "Blinking"
Timer1.Interval = 100 Memberi interval waktu pada timer 1000 = 1 detik
End Sub

Private Sub Timer1_Timer()
If Label1.Visible = True Then Cek apakah Label1 tampil atau tidak
    Label1.Visible = False jika tampil maka di sembunyikan
ElseIf Label1.Visible = False Then Cek apakah Label1 tampil atau tidak
    Label1.Visible = True jika tidak tampil maka tampilkan
End If
End Sub

Download Source Code
Link : Blinking Beginer VB 6
Pass : http://www.itlabindo.com/