Terminating / disrupting main loop with mouse event

GraphicsWindow.MouseDown = mousedown
For i = 0 To 1000000
  GraphicsWindow.Drawellipse(i,i,i,i)
  Program.Delay(1000)
EndFor

Sub mousedown
  Program.End()
EndSub