Easy - Scrolling Text On Your Form

[boku]

This will give you scrolling text accross a form, even if the form is resizable.

You need 1 timer: enabled, interal set about 50
Also 1 label, with a caption.

in the timer:

Private Sub Timer1_Timer()
 
If Label1.Left <= "0" - Label1.Width Then
Label1.Left = Form1.Width
End If
 
Label1.Left = Label1.Left - 100
 
End Sub