DEFINE CLASS BaseHeader AS HEADER PROCEDURE RIGHTCLICK LOCAL laMenu[4], loShortCutMenu AS menulib OF Utility laMenu[1] = "\<Hide Column" laMenu[2] = "\<Show All Columns" laMenu[3] = "\-" laMenu[4] = "E\<xit Menu" * from the FoxPro Utility.vcx * better as a property of the grid. loShortCutMenu = CREATEOBJECT("menulib") loShortCutMenu.ShowMenu(@laMenu) DO CASE CASE BAR() = 1 * go back to the column and hide it THIS.PARENT.VISIBLE = .F. CASE BAR() = 2 * If you want to see those columns you already made invisible FOR EACH oColumn AS COLUMN IN THIS.PARENT.PARENT.COLUMNS oColumn.VISIBLE = .T. ENDFOR ENDCASE ENDPROC ENDDEFINE