PROCEDURE oToolS PUBLIC oTool oTool=NEWOBJECT('_Menu','PRG\PROGASY.VCX') oTool.Show oTool.Dock(0) oTool.Visible=.T. ENDPROC
