'on a Module Form Type POINTAPI xReturnas
Integer Yas
Integer End Type Type ConvertPOINTAPI xyas
Long End Type Declare Function SendMessage Lib "User" (ByVal hWndas
Integer, ByVal wMsgas
Integer, ByVal wParamas
Integer, ByVal lParamas
Any)as
Long Declaresub
GetCursorPos Lib "User" (lpPointas
POINTAPI) Global Const WM_LBUTTONUP = &H202 Global Const WM_SYSCOMMAND = &H112 Global Const MOUSE_MOVE = &HF012 'put this in the mousedown event of the control(s) 'in this case it's a picturebox Sub Picture1_MouseDown (Buttonas
Integer,shift
as
Integer, Xas
Single, Yas
Single)dim
mposas
POINTAPIdim
pas
ConvertPOINTAPIdim
retas
Integer Call GetCursorPos(mpos) LSet p = mpos ret = SendMessage(picture1.hWnd, WM_LBUTTONUP, 0, p.xy) ret = SendMessage(Me.hWnd, WM_SYSCOMMAND, MOUSE_MOVE, p.xy) End Sub