>Hi John
>
>The code for the menu sits in the Load event of the Main form.
>
>The code in the Load event is as follows :-
>
>
>

>THIS.CAPTION = pname
>THIS.ICON = "uasc.ico"
>
>CLEAR
>
>SET SYSMENU SAVE
>SET SYSMENU TO
>ON KEY LABEL ESC KEYBOARD CHR(13)
>DEFINE MENU example BAR IN WINDOW FORM1
>DEFINE PAD convpad OF example PROMPT '\<File' COLOR SCHEME 3;
&gt;	KEY ALT+F, ''
&gt;ON PAD convpad OF example ACTIVATE POPUP conversion
&gt;DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4
&gt;DEFINE BAR 1 OF conversion PROMPT '\<View Requests' KEY CTRL+V, 'Ctrl+V'
&gt;DEFINE BAR 2 OF conversion PROMPT '\<Input Request' KEY CTRL+I, 'Ctrl+I'
&gt;DEFINE BAR 3 OF conversion PROMPT 'View \<Rates' KEY CTRL+R, 'Ctrl+R'
&gt;DEFINE BAR 4 OF conversion PROMPT '\<Edit Recipients' KEY CTRL+E, 'Ctrl+E'
&gt;DEFINE BAR 5 OF conversion PROMPT 'E\<xit' KEY CTRL+X, 'Ctrl+X'
&gt;ON SELECTION BAR 1 OF conversion mnufrmMain(1)
&gt;ON SELECTION BAR 2 OF conversion mnufrmMain(2)
&gt;ON SELECTION BAR 3 OF conversion mnufrmMain(3)
&gt;ON SELECTION BAR 4 OF conversion mnufrmMain(4)
&gt;ON SELECTION BAR 5 OF conversion quit
&gt;
&gt;DEFINE PAD convpad1 OF example PROMPT '\<Help' COLOR SCHEME 3;
&gt;	KEY ALT+H, ''
&gt;ON PAD convpad1 OF example ACTIVATE POPUP conversion1
&gt;DEFINE POPUP conversion1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
&gt;DEFINE BAR 1 OF conversion1 PROMPT '\<Help' KEY CTRL+H, 'Ctrl+H'
&gt;DEFINE BAR 2 OF conversion1 PROMPT '\<About' KEY CTRL+A, 'Ctrl+A'
&gt;ON SELECTION BAR 1 OF conversion1 wait window "Sorry, this option is not yet available." timeout .5 &&Help
&gt;ON SELECTION BAR 2 OF conversion1 wait window "Sorry, this option is not yet available." timeout .5 &&About
&gt;ACTIVATE MENU example NOWAIT
&gt;
&gt;
&gt;this.refresh()
&gt;
&gt;
&gt;
&gt;ACTIVATE MENU example
&gt;
&gt;

Set the form's name to a unique name

...
this.name = '_'+ltrim(str(m.this.hwnd))
...
DEFINE MENU example BAR IN WINDOW (m.This.NAme)
...