A.Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Print X,Y End Sub B.Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture.Print X,Y End Sub C.Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) P1.Print X,Y End Sub D.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) P1.Print X,Y End Sub