The simplest option there is to use a a Timer and handle its Tick event, changing the Text of the form in the event handler. By changing the number of spaces before the text each time, you can make the text move in either direction.
Me.Title = String.Format(" {0}", Me.Title)
Const HardCodedTitle As String = "Program Name"
If Me.Title.Length >= HardCodedTitle.Length + 40 '40 spaces long, not including the original title
Me.Title = HardCodedTitle
Else
Me.Title = String.Format(" {0}", Me.Title)
End If