Scrolling Text in Title Bar

Can anyone please help me by giving me some help on how do i scroll text on the title bar of my MDI form.
thanks in advance

Aindril De

private Sub Form_Load()
Timer1.Interval = 200
me.Caption = "Why in the world would you want to distract your users like this? "
End Sub

private Sub Timer1_Timer()
Dim aStr as string
aStr = me.Caption
aStr = mid$(aStr, 2) & Left$(aStr, 1)
me.Caption = aStr
End Sub