DECLARE INTEGER EmptyClipboard IN user32
DECLARE INTEGER GetActiveWindow IN user32
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
 
IF OpenClipboard(GetActiveWindow()) <> 0
    = EmptyClipboard()
    = CloseClipboard()  && important
ENDIF