local lnKount, i, lcPad lnKount = cntpad("_msysmenu") for i = 1 to lnKount lcPad = getpad("_msysmenu", i) if upper(lcPad) = "_PERMITGEN" return endif endfor DEFINE PAD _PermitGen OF _MSYSMENU BEFORE _Help ; PROMPT "\<Permits" COLOR SCHEME 3 KEY ALT+P, "" ON PAD _PermitGen OF _MSYSMENU ACTIVATE POPUP PermitGen DEFINE POPUP PermitGen MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF PermitGen PROMPT "Cover Letter" DEFINE BAR 2 OF PermitGen PROMPT "Fact Sheet" DEFINE BAR 3 OF PermitGen PROMPT "Permit" ON SELECTION BAR 1 OF PermitGen oApp.DoForm("CoverLetter", "frmCoverLetter") ON SELECTION BAR 2 OF PermitGen oApp.DoForm("FactSheet", "frmFactSheet") ON SELECTION BAR 3 OF PermitGen oApp.DoForm("PermitDoc", "frmPermitDoc") RETURNAny enlightenment will be most appreciated. TIA!