Kalimat Berjalan Pada Label di Form Visual Basic 6.0

Contoh source code berikut untuk membuat kalimat berjalan pada label di form.

Buat 1 project dengan :
1 Form
1 Timer (set interval = 100)
1 Label

Copy source code berikut pada Form :

Dim counter As Integer

Private Sub Timer1_Timer()

    Dim Kalimat As String

    Kalimat = "Ini adalah contoh kalimat berjalan"

    counter = counter + 1

    DoEvents

    Label1.Caption = TulisJalan(counter, Kalimat, 30)

End Sub

Public Function TulisJalan(hitung As Integer, strKalimat As String, _

                           Panjang As Integer)

  If hitung = Len(strKalimat) + Panjang Then

     hitung = 0

  ElseIf hitung > Len(strKalimat) Then

     TulisJalan = strKalimat & Space(hitung - Len(strKalimat))

  Else

     TulisJalan = Mid(strKalimat, 1, hitung)

  End If

End Function