PUBLIC FTOP FTOP = NEWOBJECT("ASTOP") FTOP.SHOW DEFINE CLASS ASTOP AS Form showwindow = 2 Caption = "PAINT COLLISION NC" PROCEDURE LOAD DEFINE MENU ASTOP1 BAR IN (thisform.name) DEFINE PAD open OF ASTOP1 PROMPT "open" thisform.HalfHeightCaption = .T. ACTIVATE MENU ASTOP1 * thisform.HalfHeightCaption = .T. PROCEDURE UNLOAD RELEASE MENU ASTOP1 ENDDEFINE