'Создать меню с названиями подменю MyMenu. Подменю MyMenu должно 'содержать индекс (от 0 до...)
Private Sub MyMenu_Click(Index As Integer) Static prevSelection As Integer MyMenu(prevSelection).Checked = False MyMenu(Index).Checked = True prevSelection = Index End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Переключение между пунктами подменю", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!