reading the other posts, I wonder if what I did is exactly what you want, but it might help you or other people.
Private Sub addNotes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'MsgBox "X: " & X & " Y: " & Y
If X > 10 And X < 800 And Y > 10 And Y < 500 Then...