if it was kedaman, i hope this works for you too.
the code is pretty self explanatoryCode:Dim Scr As Scrolling
Private Type Scrolling
FirstTry As Boolean
ScrollInx As Integer
ScrollStr As String
ScrollLen As Integer
StrtString As String
ScrollInt As Integer
End Type
Private Sub cmdStaop_Click()
If tmrScroll = True Then
tmrScroll = False
Exit Sub
End If
If tmrScroll = False Then
Scr.StrtString = txtScroll.Text 'This is the scrolling text
tmrScroll.Interval = Scr.ScrollInt
tmrScroll = True
End If
Scr.FirstTry = True
End Sub
Private Sub Form_Load()
Scr.ScrollInx = 1
tmrScroll = False
Scr.FirstTry = True
lblScroll.Width = 2895
Scr.ScrollInt = 50
End Sub
Private Sub tmrScroll_Timer()
If Scr.FirstTry = True Then
For i = 0 To 41
Scr.StrtString = Scr.StrtString & " "
Next i
Scr.FirstTry = False
End If
Scr.ScrollStr = Right(Left(Scr.StrtString, Scr.ScrollInx), 40)
lblScroll.Caption = Scr.ScrollStr
Scr.ScrollInx = Scr.ScrollInx + 1
Scr.ScrollLen = Len(Scr.StrtString)
If Scr.ScrollLen = Scr.ScrollInx Then 'if it's finished (all off the screen)
', start again
Scr.ScrollInx = 1
End If
End Sub
