[Resolved] Click Drag Form

How do I make it so that when I click and drag on a picture box the form moves.

Declare the following:


and in the picture1 mousedown event add:

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Code:

---

ReleaseCapture
SendMessage me.hwnd, &H112, &HF012&, 0

---

Don't worry I figured it out.