RaiseEvent Late Binding, ActiveX .dll - VB

Формулировка задачи:

Суть вопроса - как ловить событие при позднем связывании с использованием ActiveX.dll? Пример раннего связыванияhttp://forums.codeguru.com/showthrea...to-raise-event Делаю плагины для программы, ранее связывание меня не устраивает Возможно ли при позднем связывании поймать Event? Позднее связывание делаю так

                    Листинг программы
                
Dim Calc As Object
Set Calc = CreateObject("Calc.myCalc")

В классе (dll)

                    Листинг программы
                
Public Event TestEvent()
 
Public Sub ShellTestEvent()
RaiseEvent TestEvent
End Sub

Вызываю и ловлю

                    Листинг программы
                
Private Sub cmd_Click()
Calc.ShellTestEvent
End Sub
 
Private Sub Calc_TestEvent()
MsgBox "Event Raised from DLL"
End Sub

=================================== еще вопрос по поводу вызова с помощью vbs у меня не работает Пример возьму от сюда Форма в ActiveX Dll тут

Catstail

выложил календарь на ActiveX.dll и vbs скрипт для его вызова, у меня вылетает вот такая ошибка

Спойлер

скрипт ничем не изолирован и не ограничен

Решение задачи: «RaiseEvent Late Binding, ActiveX .dll»

textual
                            Листинг программы 
                        
 
                        
                          
                    
procedure TForm1.Button1Click(Sender: TObject);
var
 ClassFactory:IClassFactory2;
 DllHandle:THandle;
 ADllGetClassObject:TDllGetClassObject;
 AObject:INoRegister;
begin
 DllHandle:=LoadLibrary('C:\Program Files\...путь...\noregister.dll');
 ADllGetClassObject:=GetProcAddress(DllHandle,'DllGetClassObject');
 OleCheck(ADllGetClassObject(CLASS_NoRegister_,IClassFactory2,ClassFactory));
 ClassFactory.CreateInstance(nil,INoRegister,AObject);
 OleCheck(AObject.Method1);
end;