Hi Bill,

I'm not sure this is what you meant, but here is something:

 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

 EndDefine

Hope it helps,

Fernando