窗体内有一个image控件,如何再缩小控制鼠标只能在这个窗体的image控件范围内移动?

今天在网上找到 了一个限制鼠标能在一个窗体范围内进行移动,[color=#FF0000]但现在就不知道,如何再进一步缩小范围,限制在窗体中的图片控件内进行移动?[/color]

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT '用户自定义类型
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
Dim mouse As RECT

Private Sub Command1_Click() '限制鼠标在窗体范围内
  mouse.Left = Me.Left / Screen.TwipsPerPixelX
  mouse.Left = Me.picture1.Left / Screen.TwipsPerPixelX
   
  上面能表达为:窗体的图片范围内 吗?
但不知如何能进一步控制,能让鼠标只能在窗体的图片范围内移动.

把窗体的句柄换成图片框的句柄即可。