Здравствуйте.

Имеется COM объект (не контрол) ObjectTest.
В нем реализован Method — MethodTest и Event (Connection Point) — EventTest
Пишу в VB следующий код

Dim ObjT As New ObjTest

Private Sub Command1_Click()
    Dim str1 As String
    str1 = "1234567890"
    ObjT.MethodTest str1, 10    'это работает нормально
End Sub

Private Sub ObjT_EventTest(InStr As String) 'а сюда не попадаем
    MsgBox InStr
End Sub

Смотрел в отладчике COM объект — в функции EventTest количество соединений nConnections = 0
Значит EventTest должен быть как-то подключен.

Все то же самое для контрола работает, правда функция обработчик создается автоматом (при двойном щелчке по контролу).

Вопрос: как это сделать для объекта?