'on a 
module
 Form
Declare Function ReleaseCapture Lib "user32" () 
as
 Long
Declare Function SendMessage Lib "user32" 
alias
 "SendMessageA" (ByVal hwnd 
as
 Long, ByVal wMsg 
as
 Long, ByVal wParam 
as
 Integer, ByVal lParam 
as
 Long) 
as
 Long

'   in the mousemove event van een control to 
move
 the form
'    ReleaseCapture
'    ret& = SendMessage(Me.hwnd, &H112, &HF012, 0)