Scrolling text from right to left

[Emmanuel]

I have a scrolling text on a form that moves text from left to right. Would be glad if i could get some help with letting the text move from right to left. Below are my codes:

Const Label33 As String = "SYSTEMS INC"           
Const Label40 As String = "ALASKA SESSION"




Static strMsg As String
Static strMsg1 As String
  If Len(strMsg) = 0 Then
    strMsg = Label33 & Space(intLength - Len(strCaption))
    
  Else
    strMsg = Right(strMsg, 1) & Left(strMsg, Len(strMsg) - 1)
    
  End If




If Len(strMsg1) = 0 Then
    
    strMsg1 = Label40 & Space(intLength - Len(strCaption))
  Else
  
    strMsg1 = Right(strMsg1, 1) & Left(strMsg1, Len(strMsg1) - 1)
  End If
  ' Reverse the commenting below to enable lblScroll
  Me.Label14.Caption = strMsg
  Me.Label126.Caption = strMsg1
  ' Me.lblScroll.Caption = strMsg

[Emmanuel]

Note that the above criteria is for scrolling text for 2 labels. Thanks in advance to all