下面的示例中，用 menu( ) 将菜单栏的名称传递给一个过程。set sysmenu save 命令将当前系统菜单栏保存到内存中，同时用 set sysmenu to 命令将系统菜单标题移去。先用 define pad 命令创建几个系统菜单标题。当选取菜单标题时，menu( ) 将 visual foxpro 系统菜单栏的名字 msysmenu
传递给 choice 过程。choice 过程显示选取的菜单标题名和系统菜单栏的名字。若选取退出菜单，将恢复原有 visual foxpro
系统菜单。
*** 程序名称为 menuexam.prg ***
clear
set sysmenu save
set sysmenu to
define pad padsys of _msysmenu prompt '\<system' color scheme 3 ;
key alt+s, ''
define pad padedit of _msysmenu prompt '\<edit' color scheme 3 ;
key alt+e, ''
define pad padrecord of _msysmenu prompt '\<record' color scheme 3 ;
key alt+r, ''
define pad padwindow of _msysmenu prompt '\<window' color scheme 3 ;
key alt+w, ''
define pad padreport of _msysmenu prompt 're\<ports' color scheme 3 ;
key alt+p, ''
define pad padexit of _msysmenu prompt 'e\<xit' color scheme 3 ;
key alt+x, ''
on selection menu _msysmenu ;
do choice in menuexam with pad( ), menu( )
procedure choice
parameter gcpad, gcmenu
wait window 'you chose ' + gcpad + ;
' from menu ' + gcmenu nowait
if gcpad = 'padexit'
set sysmenu to default
endif