AddEvent with ComboBox

[erik58]

It seems AddEvent not to work properly in conjunction with ComboBox.
I have created 1Form with 1 ComboBox, where the ComboBox contains 3 data items at design time.
Selecting one data item from the ComboBox doesn't trigger the designated "tstsub"

Anyone an idea whether this is a bug of whether I am overlooking something?

Sub App_Start
Form1.Show
AddEvent("cmbBox",SelectionChanged,"tstsub")
End Sub

Sub tstsub
Msgbox("sub","DEBUG")
End Sub

 

[taximania]

selectionchanged has 2 paramaters

Sub tstsub(index,value)
Msgbox("sub","DEBUG")
End Sub

 

[erik58]

Thanks for waking me up!