Dim s As Integer, h As Long
Private Sub Form_Load()
' Timer1.Enabled = ?
  s = -40
End Sub
Private Sub Timer1_Timer()
  Shape1.Move Shape1.Left, Shape1.Top + s
'  If Shape1.Top = ? Then
    s = -s
  End If
'  If Shape1.Top + ? = Line2.Y1 Then
    s = -s
  End If
End Sub