DIM Image(1) AS QIMAGE	'2 images
 DIM Form AS QFORM

 SUB MouseMove(X%, Y%, Shift%, Sender AS QIMAGE)
  Form.CAPTION = STR$(X%) + ", " + STR$(Y%)
 END SUB

 FOR I = 0 TO 1
  Image(I).PARENT = Form
  Image(I).Left = I * 50: Image(I).Top = I * 50
  Image(I).Width = 50: Image(I).Height = 50
  Image(I).Circle(0,0,50,50,0,RGB(255,255,255))
  Image(I).Transparent = 1
  Image(I).OnMouseMove = MouseMove
 NEXT I

 Form.SHOWMODAL