Set Escape Off oShowMenu = CreateObj ("frmShowMenu") oShowMenu.Show () Define Class frmShowMenu as Form Top = 5 Left = 5 Height = 240 Width = 260 Name = "frmShowMenu" Caption = " Modal Form with a Menu Bar" AutoCenter = .F. ShowWindow = 0 BorderStyle = 2 Enabled = .T. WindowType = 1 BorderStyle = 3 Procedure Activate Define Menu MyMenu Define Pad Pad1 of MyMenu Prompt " \<Pad1 " Define Pad Pad2 of MyMenu Prompt " \<Pad2 " Define Pad Pad3 of MyMenu Prompt " \<Pad3 " Define Pad Pad4 of MyMenu Prompt " \<Get Out " On Select Pad Pad1 of MyMenu Messagebox("you selected Pad #1") On Select Pad Pad2 of MyMenu Messagebox("you selected Pad #2") On Select Pad Pad3 of MyMenu Messagebox("you selected Pad #3") On Select Pad Pad4 of MyMenu KeyBoard "{Esc}" Clear Activate Menu MyMenu Release Menu MyMenu ThisForm.Release () EndProc EndDefineHope it helps,