Tulisan Berjalan Pada Visual Basic 6.0

Sabtu, 06 Maret 2010

Mari kita belajar membuat tulisan yang bisa berjalan pada program Visual Basic 6.0. Komponen-lkomponen yang di perlukan adalah tool timer dan tool label..
Listing progam membuat tulisan berjalan :

Private Sub Timer1_Timer()
Dim Kata As String
Kata = Me.LblJalan.Caption
If Left(Me.LblJalan.Caption, 1) = "P" Or Ulang = 1 Then
Kata = Right(Kata, 1) & Left(Kata, Len(Kata) - 1)
Ulang = 1
End If
If Right(Me.LblJalan.Caption, 1) = "0" Or Ulang = 0 Then
Kata = Right(Kata, Len(Kata) - 1) & Left(Kata, 1)
Ulang = 0
End If
Me.LblJalan.Caption = Kata
End Sub

Selamat mencoba !