_SCREEN.NewObject([Menu],[SFMenu],[SfMenu.Vcx],,[_screen.Menu]) WITH _SCREEN.Menu .AddPad([SfPad],[SfMenu.Vcx], [Pad1]) .AddPad([SFPad],[SfMenu.Vcx], [Pad2]) .AddPad([SFPad],[SfMenu.Vcx], [Pad3]) WITH .Pad1 .AddBar([SFBar], [SFMenu.vcx], [Bar1]) .AddSeparatorBar() .AddBar([SFBar], [SFMenu.vcx], [Bar2]) .AddBar([SFBar], [SFMenu.vcx], [Bar3]) .Bar1.cCaption = [Something] .Bar2.cCaption = [Something else] .Bar3.cCaption = [more somethings :-)] ENDWITH *** etc. .Show() ENDWITH