Timer di VB 6.0

Timer adalah komponen dasar yang akan diload tanpa menambahkan active control lain saat membuat project baru pada VB. Fungsi timer pada VB hampir sama dengan jam yang biasa kita gunakan sehari-hari. Komponen ini akan merespon kode yang anda ketikkan pada sub timer dengan memperhatikan properties interval yang kita masukkan.
Dalam kolom properties interval, value yang ada adalah dalam milisecond atau seperseribu detik. Jadi apabila kita menginginkan komponen timer tersebut merespon setiap satu detik, kita memberikan nilai 1000 pada kolom interval.

contoh di bawah ini kita ingin menjalankan tulisan kekiri lalu kekanan secara terus menerus.....

 

codingnya :

Private Sub Timer1_Timer()
    If (Label1.Left < 5400) Then
        Label1.Left = Label1.Left + 200
    Else
        Timer1.Enabled = False
        Label1.Caption = "< Arah kiri"
        Timer2.Enabled = True
    End If
End Sub

Private Sub Timer2_Timer()
    If (Label1.Left > 0) Then
        Label1.Left = Label1.Left - 200
    Else
        Timer2.Enabled = False
        Label1.Caption = "Arah kanan >"
        Timer1.Enabled = True
    End If
End Sub

cukup sekian dan terima kasih...... :)