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

[boku]

Also done similar for falling text:

Private Sub Timer2_Timer()
 
If Label2.Top >= Form1.Height Then
Label2.Top = "0" - Label2.Height
End If
 
Label2.Top = Label2.Top + 100
 
End Sub

[FiOh]

This is fun!!