Visual Basic - funciones de Texto

hola foro el problema que tengo es el siguiente quiero que un form aparesca un texto que se mueva de derecha a izquierda parecido al status bar de las paginas web agradecere su ayuda

hize una funcion que rotara el caption del form de derecha a izquierda, creo que para eso pediste ayuda.
pon un timer con intervalo de 200 y al final del caption agrega unos varios espacios

Option Explicit

Public Function ScrollText(ByVal Caption As String) As String
ScrollText = Right(Caption, Len(Caption) - 1) & Left$(Caption, 1)
End Function

Private Sub Timer_Timer()
Caption = ScrollText(Caption)
End Sub