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