Scrolling, (for someone who asked me) i think it was kedaman

[da_silvy]

if it was kedaman, i hope this works for you too.

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

the code is pretty self explanatory