Положение курсора - VB

Формулировка задачи:

как мне отловить наведение мыши на определённую часть формы (например картинку7) есть вариант

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Private Declare Function GetCursorPos Lib _
    "user32" (ast As POINTAPI) As Long
 
Private Type POINTAPI
X As Long
Y As Long
End Type
  
Dim position As POINTAPI
Dim p As Integer
  
Private Sub Command1_MouseMove _
    (Button As Integer, _
     Shift As Integer, _
     X As Single, _
     Y As Single)
p = GetCursorPos(position)
label1.caption = position.X  & Space(3) & position.Y
End Sub

НО он выдаёт координаты относительно правого левого угла (хы сказанул ошибка - левого верхнего) то есть либо надо узнать положение формы (и вычитать из координат положения мыши вычитать положение формы) или делать форму на весь экран и менять расширение вопрос на милион: как быть7

Решение задачи: «Положение курсора»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Комманда1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = X & "  " & Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = X & "  " & Y
End Sub