membuat kalimat berjalan pada label di form vb6

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

sekian dari ane semoga bermanfaat