Scroll Text Label

[JWT]

What would I need to change to get a scrolling text to start on the left and run to the right?
Thank you, JWT

Here is what I have set on a form, but starts on the right and runs to the left.

Private Sub Form_Timer()
Static strMsg As String, intLet As Integer, intLen As Integer
Dim strTmp As String
Const TXTLEN = 36


If Len(strMsg) = 0 Then
strMsg = Space(TXTLEN) & " from left to right " & Space(TXTLEN)
intLen = Len(strMsg)
End If
intLet = intLet + 1
If intLet > intLen Then intLet = 1
strTmp = Mid(strMsg, intLet, TXTLEN)
lblScroll.Caption = strTmp

End Sub

 

[GumbyD]

Try this code:

Private Sub Form_Timer()
Static strMsg As String, intLet As Integer, intLen As Integer
Dim strTmp As String
Const TXTLEN = 36


If Len(strMsg) = 0 Then
strMsg = Space(TXTLEN) & " from left to right " & Space(TXTLEN)
intLen = Len(strMsg)
End If
intLet = intLet + 1
If intLet > intLen Then intLet = 1
strTmp = Mid(strMsg, 96 - intLet, TXTLEN)
Lblscroll.Caption = strTmp

End Sub

GumbyD

 

[JWT]

GumbyD

Thank you for the info; it was just what I needed to run on a form.
Thanks again, JWT