• Для начала щелкните правой кнопкой по форме, выберите пункт Menu Editor.
• В появившемся окне напротив надписи Caption введите название "Раздел" без ковычек. Напротив Name введите menuRazdel, теперь щелкните на Enter. Повторите все тоже, только за вместо Раздел введите Подраздел, а за вместо menuRazdel введите menuPodrazdel. Теперь не снимая выделения, не щелкая Enter щелкните на кнопку с изображением стрелки вправо, только один раз.
• Щелкните F5 для старта программы. 
• Приятно, да? Ответ остается за вами дорогие наши читатели. А мы продолжаем, опять зайдите в Menu Editor и два раза щелкните на Enter, пусть надпись (caption) будет "подраздел подраздела", имя - menup2. Два раза щелкните на стрелку вправо. Щелкните ОК и обратите внимание на то, что у вас появился еще один пункт меню, находится он немного в странном месте.
• Еще раз запустите вашу программу и внимательно все осмотрите.
• Теперь приступим к более интересной части этого урока, управлением пунктов меню:
• Создадим четыре кнопки, располагайте их как угодно. Щелкните два раза по форме, в коде напишите:
  Command1.Caption = "Выключить пункт Подраздел"
  Command2.Caption = "Выключить пункт Подраздел подраздела"
  Command3.Caption = "Включить пункт Подраздел"
  Command4.Caption = "Включить пункт Подраздел подраздела"
• Что получилось думаю вы знаете. Теперь в коде каждой кнопки напишем свое, думаю вы догадаетесь что какой кнопке присуще:
  Private Sub Command1_Click()
  menuPodrazdel.Enabled = False
  End Sub
  Private Sub Command2_Click()
  menup2.Enabled = False
  End Sub
  Private Sub Command3_Click()
  menuPodrazdel.Enabled = True
  End Sub
  Private Sub Command4_Click()
  menup2.Enabled = True
  End Sub
• Если вы не догадались, значит вы плохо усвоили вторую часть второго урока.
• Запустите программу и наслаждайтесь полученным зрелищем. 
• Но реальному пользователю неудобно будет пользоваться данной программой, сделаем ее лучше: 
• Удалим две нижние кнопки соответственно весь их код. В другие кнопки вставьте следующий код соответственно, что он дает мы разберем далее:
  Private Sub Command1_Click()
  If menuPodrazdel.Enabled = True Then
  menuPodrazdel.Enabled = False
  Command1.Caption = "Включить пункт Подраздел"
  ElseIf menuPodrazdel.Enabled = False Then
  menuPodrazdel.Enabled = True
  Command1.Caption = "Выключить пункт Подраздел"
  End If
  End Sub
  Private Sub Command2_Click()
  If menup2.Enabled = True Then
  menup2.Enabled = False
  Command2.Caption = "Включить пункт Подраздел подраздела"
  ElseIf menup2.Enabled = False Then
  menup2.Enabled = True
  Command2.Caption = "Выключить пункт Подраздел подраздела"
  End If
  End Sub
• Вот такая программа нас более устраивает.

    Мы всем коллективом программистов надеемся, что наши уроки вам нравятся, если вы хотите полноценно обучиться, то заходите на эту страничку почаще. Чтобы продолжить обучение пожалуйста щелкните сюда (вы перейдете ко второй части третьего урока)