Menús contextuales

Hay dos formas de Hacerlo... Una por código y otras por asistentes.
Por código seria haci.
*** Llame a este programa DEFINBAR.PRG ***
CLEAR
SET SYSMENU SAVE
SET SYSMENU TO
DEFINE PAD convpad OF _MSYSMENU PROMPT '\<Conversiones' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD cardpad OF _MSYSMENU PROMPT '\<Info. tarjeta' COLOR SCHEME 3 ;
KEY ALT+I, ''
ON PAD convpad OF _MSYSMENU ACTIVATE POPUP conversiones
ON PAD cardpad OF _MSYSMENU ACTIVATE POPUP infotarjeta
DEFINE POPUP conversiones MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF conversiones PROMPT 'Ár\<ea' KEY CTRL+E, '^E'
DEFINE BAR 2 OF conversiones PROMPT '\<Largo' ;
KEY CTRL+L, '^L'
DEFINE BAR 3 OF conversiones PROMPT 'Ma\<siva' ;
KEY CTRL+S, '^S'
DEFINE BAR 4 OF conversiones PROMPT 'Veloci\<dad' ;
KEY CTRL+D, '^D'
DEFINE BAR 5 OF conversiones PROMPT '\<Temperatura' ;
KEY CTRL+T, '^T'
DEFINE BAR 6 OF conversiones PROMPT 'H\<ora' ;
KEY CTRL+O, '^O'
DEFINE BAR 7 OF conversiones PROMPT 'Volu\<men' ;
KEY CTRL+M, '^M'
ON SELECTION POPUP conversiones;
DO choice IN definbar WITH PROMPT( ), POPUP( )
DEFINE POPUP infotarjeta MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF infotarjeta PROMPT '\<Ver pagos' ;
KEY ALT+V, ''
DEFINE BAR 2 OF infotarjeta PROMPT 'Ver \<pagos' ;
KEY ALT+P, ''
DEFINE BAR 3 OF infotarjeta PROMPT 'Ve\<r usuarios' KEY ALT+R, ''
DEFINE BAR 4 OF infotarjeta PROMPT '\-'
DEFINE BAR 5 OF infotarjeta PROMPT '\<Cargos '
DEFINE BAR 6 OF infotarjeta PROMPT '\-'
DEFINE BAR 7 OF infotarjeta PROMPT 'S\<alir '
ON SELECTION POPUP infotarjeta;
DO choice IN definbar WITH PROMPT( ), POPUP( )
PROCEDURE choice
PARAMETERS mprompt, mpopup
WAIT WINDOW 'Ha elegido ' + mprompt + ;
' del menú contextual ' + mpopup NOWAIT
IF mprompt = 'Salir'
SET SYSMENU TO DEFAULT
Endif
Espero te sirva.
Freddy García
Valera / Trujillo / Venezuela

Gracias por el código que me has prestado, pero aun tengo una pequeña duda.
¿Después de crear el menú como logroque me aparezca en la parte superior de un formulario cuándo ejecuto este?