scrolling form caption

[JohnE]

Hello. I have the following code that I am going to use so the form caption
will scroll like a marquee. It works with several exceptions. The form
caption is named in the form's properties (call it Test Form). I realize I
am renaming it in the form load, which brings me to a question.

I am looking to keep the caption as is (Test Form) and have the training
session scroll next to it in the form's caption area. This is the part that
is losing me. How can I get it to do that? Also, I need to make this into a
function so it can be used on all forms, not just the one. Which I also need
help on.

Private Sub Form_Load()

Me.Caption = "......Training Session......"

End Sub

Private Sub Form_Timer()
Me.Caption = Mid(Me.Caption, 2, (Len(Me.Caption) - 1)) &
Left(Me.Caption, 1)

End Sub

This code scolls the caption like a marquee but it all scrolls.

Thanks... John