Tal vez te sirva.
Para ver las cordenadas del mouse en un form. Lo que puedes hacer es poner es:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a, b
a = X
b = Y
Label1.Caption = a
Label2.Caption = b
End Sub
Tienes que agregar dos label, llamados label1 y label2.
Luego para limitar el mouse puedes poner un if para determinar las medidas.
espero que te sirva