James,

I'm making progress (with your help) but:

where do I put the code LockWindowUpdate (me.hwnd) ?

Putting it into Form Load locked my whole screen.

Putting it before the loop to move the line does nothing.

The code that I have is (you can probably pick holes in this)

Private Sub Timer1_Timer()

If ShiftLeft = True Then

If Step < 400 And Line1.X1 > 1500 Then

Select Case Step

Case Step
Y1 = Y1 + 2 * XCoefficient
X2 = X2 - 8
Line1.Y1 = Y1
Line1.Y2 = Y2
Line1.X1 = X1
Line1.X2 = X2

End Select

Step = Step + 1

End If

Else

If Step < 400 And Line1.X2 < 11000 Then

Select Case Step

Case Step
Y1 = Y1 - 2 * XCoefficient
X2 = X2 + 8
Line1.Y1 = Y1
Line1.X2 = X2

End Select

Step = Step + 1

End If

End If

End Sub


At what point do I lock the window?