LPARAMETERS nKeyCode, nShiftAltCtrl local x,oldSBT with this do case case nKeyCode = 30 && Ctl-PgDn nodefault if !empty(.ControlSource) and type(.ControlSource) = "M" oldSBT = .StatusBarText * display how to close the control .StatusBarText = "Ctrl-W to close the edit window, ESC to abbandon edit" modify memo (.ControlSource) save &&nowait .StatusBarText = oldSBT return endif .refresh() endcase endwithHTH