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:
Code:
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