Здравствуйте, TK, Вы писали:

TK>Попробуйте написать Dim WithEvents COMTestObj As New COMTest.UserControl1
Так не получается. Ругается компилятор.

TK>и использовать дальше COMTestObj за место локальной переменной. или просто присвоить ей значение.
TK>Проблема скорее всего в том, что события ловятся в одном месте, а экземпляр создается в другом.
Видимо Вы правы и проблема была в этом. Написал вот так:

Public WithEvents COMTestObj As COMTest.UserControl1

Sub t1()
 Set COMTestObj = New COMTest.UserControl1

 COMTestObj.TestProperty = "qwery"
 COMTestObj.TestMethod
 
 Set pCOMTest = Nothing
End Sub

Private Sub COMTestObj_COMTestEventFunc(ByVal TestStr As String)
 MsgBox "Event Raised!!!" + Chr(13) + Chr(10) + "Rarameter:" + TestStr
End Sub

Все заработало. Событие вызвалось. Примите мою искреннюю благодарность за помощь

TK>В бейсике не силен.
А в Delphi? Просто COM-объект который я делаю планируется использовать там...
Не подскажите, как в Delphi должно выглядеть подключение к событию? А то я никогда на Delphi не писал. Собственно, это уже
не моя проблема, а коллеги (он Дельфист). Я просто подумал, что вдруг у Вас был уже подобный опыт и с Вашей помощью
мы сможем обойти какие-то типичные грабли.