* user-defined property hWindow IF ThisForm.hWindow = 0 DECLARE INTEGER GetFocus in user32 ThisForm.hWindow = GetFocus() ENDIF