Flying line........

[CyberCarsten]

I'm trying to create a screen saver, where a line flys on the screen!
I have tried the following code, but after a few loops, the edges of the line disapear outside the screen, and so does the line after some time.....
Does anyone know how to make a line fly INSIDE the screen??

Form1.Show
Dim Scr
For Scr = 1 To 1
Do
Line1.x1 = Line1.x1 + 34
Line1.x2 = Line1.x2 - 45
Line1.y1 = Line1.y1 + 24
Line1.y2 = Line1.y2 + 15
pausetime = 0.5
start = Timer
Do While Timer < start + pausetime
    DoEvents
Loop
Line1.x1 = Line1.x1 - 30
Line1.x2 = Line1.x2 - 80
Line1.y1 = Line1.y1 + 20
Line1.y2 = Line1.y2 - 15

pausetime = 0.5
start = Timer
Do While Timer < start + pausetime
    DoEvents
Loop
Line1.x1 = Line1.x1 + 300
Line1.x2 = Line1.x2 - 80
Line1.y1 = Line1.y1 - 20
Line1.y2 = Line1.y2 + 150

start = Timer
Do While Timer < start + pausetime
    DoEvents
Loop
Line1.x1 = 4320
Line1.x2 = 4320
Line1.y1 = 2040
Line1.y2 = 3720

Loop
Next Scr

[HeSaidJoe]

I've used this to keep a form on the screen
You should be able to doctor it to use on a control

Option Explicit
   
'you could do it this way / add a timer control

Private Sub Form_Load()
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
  If ((Form1.Left) < 0) Then Form1.Left = 0
  If ((Form1.Top) < 0) Then Form1.Top = 0
  If ((Form1.Left) > Screen.Width - Form1.Width) _
      Then Form1.Left = Screen.Width - Form1.Width
  If ((Form1.Top) > Screen.Height - Form1.Height) _
      Then Form1.Top = Screen.Height - Form1.Height
End Sub