FUNCTION IsDocked LPARAMETER pcToolBar LOCAL llresult, lnwhandle, lnhWnd,; lnHeight, lnTop, lnLeft, lnBottom, lnRight llresult = .T. lnwhandle = _WFindTitl(pcToolBar) IF lnwhandle > 0 lnHeight = _WHeightp(lnwhandle) lnhWnd = _WhTohWnd(lnwhandle) STORE 0 TO lnTop, lnLeft, lnBottom, lnRight = _GetWRect(lnhWnd, @lnTop, @lnLeft, @lnBottom, @lnRight) llresult = (lnHeight = lnBottom - lnTop) ENDIF RETURN llresult ENDFUNCI go through phases where I leave off things. Now I'm adding them when they shouldn't be there. I'm blaming it on old age. :-)