Как сделать интерактивную кнопку?

[teatral]

Сделал кнопку с открытием URL на VB

Set curButton1 = myPage.buttons.Add()

Set oBH = curButton1.GotoURLBehaviors.Add()
        
        With oBH
            .BehaviorEvent = 1836410230 'BehaviorEvents.MOUSE_UP
            .EnableBehavior = True
            .URL = "http://www.test.ru"
            End With

Хочу добавить ей интерактивность, чтобы менялся бы цвет обводки при наведении

Среди всяких ...Behavior (типа ShowHideFieldsBehavior) не нашел такого

А также как заставить кнопку исполнять произвольный код?

Подскажите, пожалуйста, кто знает

 

[teatral]

Ответ: Как сделать интерактивную кнопку?

Прошерстил немного интернет, пока что предполагаю, что тут необходим метод addEventListener...

 

[teatral]

Ответ: Как сделать интерактивную кнопку?

В простом виде часть задачки решил
Кнопку можно показывать/скрывать (в примере - скрывается)

Set curButton1 = myPage.buttons.Add()
Set oBH = curButton1.ShowHideFieldsBehaviors.Add()
With oBH
    .BehaviorEvent = 1835361654 'idMouseEnter
    .EnableBehavior = True
    .FieldsToHide = Array(curButton1)
    End With