Синтаксис
Sub Name_Event(arg0, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
Где:
argX - параметры для этого события (их количество может быть от 1 до 9, или отсутствовать вообще).
Name - имя элемента управления.
Event - имя события.
Sub MediaPlayer_MouseMove(button, shift, x, y)
End Sub
Синтаксис
Sub Name_Event(info As EventInfo)
Где:
Name - имя элемента управления.
Event - фиксированное имя события.
Info.EventParameters - коллекция параметров события.
Info.Name - имя события.
Info.EventParameters.Count - количество параметров события.
Info.EventParameters.Item() - параметры.
Info.EventParameters.Item(X).Name - имя параметра.
Info.EventParameters.Item(X).Value - значение параметра.
Sub MediaPlayer_Event(info) msgbox info.name msgbox info.EventParameters.Item(0).Name End Sub