Animation Status bar

'General Deciarations
Dim C As String 'to store panel's text
Dim CO As Integer 'to store text length
Dim FS As Long 'to store Panels Width
Private Sub MDIForm_Load()
 Timer1.Interval = 100
 SB.Panels(1).Text = "Nilantha Athurupana"
 C = SB.Panels(1).Text
 CO = Len(C) + 1
 SB.Panels(1).Text = ""
 FS = SB.Panels(1).Width
End Sub
Private Sub Timer1_Timer()
On Error GoTo ATH
 Static C01 As Integer ' Counter 1
 Static CO2 As Integer ' Counter 2
 Static A As String 'To move text
 
 Dim R As String 'Restore text
 Dim T As String 'Restore text
 
XX:
 If CO > 0 Then
  C01 = CO
  T = Mid(C, C01, 1)
  CO = CO - 1
  R = " "
  Mid(R, 1) = T
  SB.Panels(1).Text = R & SB.Panels(1).Text
 Else
  A = A & " "
  R = " "
  Mid(R, 1) = A
  SB.Panels(1).Text = R & SB.Panels(1).Text
 End If
 
 If CO2 >= FS Then
  CO2 = 0
  CO = Len(C)
  SB.Panels(1).Text = ""
  GoTo XX
 Else
  CO2 = CO2 + 35 'please edit this value according to your text length.
 End If
 Exit Sub
ATH:
End Sub