Чтобы определить, какую кнопку нажал пользователь в окне помощника, используется значение, возвращаемое методом Show объекта Balloon, которое равно индексу нажатой кнопки (надписи). В программе 10 переменной Х присваивается значение 2, если пользователь щелкает по надписи "Нажми меня!", а затем номер нажатой кнопки выводится в окне сообщения.

Программа 10. Использование кнопок в окне помощника.

Public Sub LabelClickDemo()
     Dim x as integer
     Set MyAssistant = Assistant
     Set NewBalloon = MyAssistant.NewBalloon
     With NewBalloon
          .BalloonType = msoBalloonTypeLabels
          .Heading = "Здоровье"
          .Text= "Как сохранить здоровье и прожить долгую жизнь"
          .Labels(1).Text = "Не меня"
          .Labels(2).Text = "Нажми меня"
          .Labels(3).Text = "И не меня"
     End With
     X = NewBalloon.Show
     Msgbox str$(x)
End Sub

Для комментария : kadan@grsu.grodno.by