Бегущая строка

Option Explicit
 
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Dim tmrID As Long, s As String
 
Sub Start()
    UserForm1.Show
End Sub
 
Public Sub TimerStart()
    s = UserForm1.TextBox1.Text & Space(Len(UserForm1.TextBox1.Text))
    tmrID = SetTimer(&H0, &H0, 100, AddressOf tmrPrc)
End Sub
 
Public Sub TimerStop()
    KillTimer &H0, tmrID
End Sub
 
Public Sub tmrPrc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTimer As Long)
    'If dwTimer = tmrID Then
        s = Right(s, Len(s) - 1) & Left(s, 1)
        UserForm1.TextBox1.Text = s
        'Debug.Print Now()
    'End If
End Sub

Dim Flag
Private Sub CommandButton1_Click()
txt = TextBox1.Text
prob = TextBox1.Width / 3
 
While Not Flag = 2
If Timer > s + 0.1 Then
    DoEvents
    If Flag = 0 Then prob2 = prob2 + 1
    If Flag = 1 Then prob2 = prob2 - 1
    TextBox1.Text = Space(prob - prob2) & txt & Space(prob2)
    If prob2 = prob Then Flag = 1
    If prob2 = 0 Then Flag = 0
    s = Timer
End If
Wend
End Sub
 
Private Sub CommandButton2_Click()
Flag = 2
End Sub