[belajar-access] Text pada Caption berjalan

[Cecep W]

hallo pakar access semua

saya lagi nyoba hasil contekan membuat text berjalan pada caption yg saya
contek dari program-nya bamboo media yg beberapa waktu lalu dikirim ke
milis tapi setelah saya coba text-nya ga jalan, kenapa ya?

VBA-nya sbb:
Private Sub Form_Timer()
On Error Resume Next
    Dim TxtDefault As String
    Dim TxtDemo As String

    TxtDefault = " Main Menu"
    TxtDemo = " Text Berjalan"
    Me.Caption = TxtDefault & Space(CountLoop) & TxtDemo
    CountLoop = CountLoop + 1
    If CountLoop = 115 Then
    CountLoop = 1
End If
End Sub

Timer Intervalnya 50

regards
CW