Foro de programacion

hola
de antemano agradezco a quien me pueda ayudar con este lio.
resulta q estoy haciendo una aplicacion en la q unicamente tengo un statusbar con su panel, y lo que quiero es alimentar el statusbar con texto desde un archivo txt, y q el texto se mueva de derecha a izq. Tengo tambien un timer.
hasta ahora solo estoy insertando la cadena desde el codigo directamente, y me aparece en el statusbar pero no se mueve, AHI ES DONDE ESTA EL DILEMA. SI ALGUIEN PUDIESE AYUDARME...
adjunto el codigo q tengo



Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Código generado por el Diseñador de Windows Forms "

#End Region
Private Sub Form_Load()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Contr
Dim TotalCaracteres
'Dim i As Integer
Dim texto As String = "q se muestre esto pero que se mueva!!!"
Cont = 1
TotalCaracteres = Len(texto)

'StatusBar1.Panels(0).Text = Mid(texto, vContador) 'CadenaStr, vContador)
'If Contr < TotalCaracteres Then
'Cont = Cont + 1
'Else
'Cont = TotalCaracteres
'End If
StatusBar1.Panels(0).Text = texto
With texto
If Cont < TotalCaracteres Then
Contr = Cont + 1
Else
Cont = TotalCaracteres
End If
End With
End Sub

End Class



GRACIAS POR LA AYUDA