Option Explicit
Public Declare Function ReleaseCapture Lib "user32" () _
  As Long
Public Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Long, lParam As Any) As Long
Global Const WM_NCLBUTTONDOWN = &HA1
Global Const HTCAPTION = 2
 
Public Sub MoveObject(Obj As Object)
  ReleaseCapture
  SendMessage Obj.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub