FUNCTION Init This.AddProperty('ntime', 0) ENDFUNC FUNCTION MouseDown *** ActiveX Control Event *** LPARAMETERS button, shift, x, y *-- Check to see if they right clicked IF button = 2 THIS.nTime = SECONDS() ELSE THIS.nTime = -1 ENDIF ENDFUNC FUNCTION NodeClick *-- Create Menu to check out and check in IF BETWEEN(THISFORM.nTime, SECONDS() - _DBLClick, SECONDS()) *-- Save the node we need it for the menu DO rightclick.mpr ENDIF ENDFUNCThere might be a better way.