Visual Basic > Forms

Move your form without a tittle bar (by control)

Move your form without a tittle bar (by control)

'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)

Return