Ошибка в коде? RaiseEvent не работает в интерфейсе TLB

[ozyabkin]

Скачал примеры из интернета и нашел примерчик вызова событий из интерфейса, однако почему-то код не работает.

Подскажите, пожалуйста, что в примере неверно и как заставить работать RaiseEvent именно данного примера. Вложен также код VB6 вызова событий библиотеки.

Спасибо.