membuat tulisan berjalan

        membuat tulisan berjalan 

Keterangan:

1 buah form

1 buah label

1 buah timer

Codingnya:

Private Sub Timer1_Timer()

If Label1.Left > -4000 Then

Label1.Left = Label1.Left - 15

ElseIf Label1.Left <= -4000 Then

Label1.Left = 1000

End If

End Sub

Setelah memasukan kode tersebut jangn lupa untuk mengganti interval pada property timer nya dengan angka 10, karena jika tidak maka tulisan itu tidak akan berjalan.