'Modül'e
Type POINTAPI
X As Integer
Y As Integer
End Type
Type ConvertPOINTAPI
xy As Long
End Type
Declare Function SendMessage Lib "User"_
(ByVal hWnd As Integer, ByVal wMsg As Integer,_
ByVal wParam As Integer, ByVal lParam As Any) As Long
Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)
Global Const WM_LBUTTONUP = &H202
Global Const WM_SYSCOMMAND = &H112
Global Const MOUSE_MOVE = &HF012
'form'a
Sub Picture1_MouseDown (Button As Integer,_
Shift As Integer, X As Single, Y As Single)
Dim mpos As POINTAPI
Dim p As ConvertPOINTAPI
Dim ret As 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