Visual Basic - letrero en la barra de estado

Hola, me gustaria saber como le puedo poner un letrero deslizante por la barra de estado en mi aplicacion. si alguien me puede ayudar, le estare agradecido, muchas gracias.

Private Sub Timer1_Timer()
'El 2 determinará el número de caracteres que
'se desplaza el texto a la izquierda y
'el interval del timer determinará la velocidad del movimiento.
If Len(texto) < 2 Then
'estoy asumiendo; que el formulario está maximizado en una resolución de monitor
' de 800 * 600 y que el panel 1 del status bar esta en la modalidad spring
texto = Space(280) + "Letrero Deslizante"
'El número 280 dependerá de el texto a deslizar
'la resolución del monitor y el tamaño de las letras
'si lo deseas calcular automáticamente deberás crear una función con
'el statusbar1.panels(1).width y comando twipsperpixelsX para tener
'medidas exactas de cada caracter en la pantalla...
Else
texto = Right(texto, Len(texto) - 1)
End If
StatusBar1.Refresh
StatusBar1.Panels(1).Text = texto
End Sub