[fati]

подскажите, как написать меню такого вида:
МЕНЮ ->Подменю1->Подменю1.1->Данные
->Подменю1.2->Данные
->Подменю1.3->Данные
->Подменю2->Подменю2.1->Данные
->Подменю2.2->Данные
->Подменю2.3->Данные


у меня выходит не то что я хочу:
изза того что функция определения меню после слова as должна содержать функции, а мое меню должно содержать подменю.
Вставлять пустую строку мне не хочется( можно ли как то этого избежать?


create menu "Меню" as
"" 'Без данной строки меню не получится
Alter menu bar add "Меню"


create menu "Подменю1" as
"Данные"
alter menu "Меню" add
"Подменю1" as "Подменю1"


create menu "ПОдменю2" as
"1" Calling 1_sub,
"2" Calling 2_sub

alter menu "Меню" add
"ПОдменю2" as "ПОдменю2"

[khSerg]

Если я вас правельно понял, то так:

Sub Main
OnError Goto HandleError

Create Menu "Подменю2.1" As
"Данные" Calling Run_raskraska

Create Menu "Подменю1" As
"Подменю2.1" as "Подменю2.1"

Create Menu "Подменю2.2" As
"Данные" Calling Run_otchet

Create Menu "Подменю2.3" As
"Данные" Calling Run_closewindws

Create Menu "=МЕНЮ=" as
"Данные" Calling one,
"Подменю1" As "Подменю1",
"Подменю2.2" As "Подменю2.2",
"Подменю2.2" As "Подменю2.3",
"Выход" Calling Quit
Alter Menu Bar Add "=МЕНЮ="

Exit Sub
HandleError:
Note "Ошибочка: " + Error$()
Resume Next
End Sub

[fati]

спасибо за наводку) увидела свои промахи) УРА УРА УРА!!!)