DO declare
 
* testing the capture
? GetCapture()
 
* setting the mouse capture to the window with the keyboard focus
? SetCapture(GetFocus())
 
* testing the capture
? GetCapture()  && returns a window handle
 
= ReleaseCapture()
 
PROCEDURE declare
    DECLARE INTEGER SetCapture IN user32 INTEGER hWindow
    DECLARE INTEGER GetCapture IN user32
    DECLARE INTEGER ReleaseCapture IN user32
 
    DECLARE INTEGER GetActiveWindow IN user32
    DECLARE INTEGER GetFocus IN user32