Option Explicit
 
Private Declare Function GetCursorPos Lib "user32" _
  (lpPoint As POINTAPI) As Long
 
Private Declare Function ScreenToClient Lib "user32" _
  (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
Private Sub Timer1_Timer()
  Dim Pt As POINTAPI
 
  GetCursorPos Pt
  ScreenToClient Me.hWnd, Pt
 
  Dim X As Single
  Dim Y As Single
 
  X = ScaleX(Pt.X, vbPixels, Me.ScaleMode)
  Y = ScaleX(Pt.Y, vbPixels, Me.ScaleMode)
 
  With Image1
    If X >= .Left And X <= .Left + .Width And _
      Y >= .Top And Y <= .Top + .Height Then
 
      Label1.Caption = "Over Image1"
    Else
      Label1.Caption = "Out of Image"
    End If
  End With
End Sub