LPARAMETERS tnBar DO CASE CASE tnBar = 1 thisform.GridAddItem() CASE tnBar = 2 thisform.GridRemoveItem() ENDCASE DEACTIVATE POPUP GridPopup