Help !!!

Буду ОЧЕНЬ признателен всем, кот поможет !

Суть дела:
в модуле класса есть оператор RaiseEvent, но в некоторых местах он действительно генерирует событие, а в некоторых НЕТ ! Почему же НЕТ ?!

Наверняка кто-то уже сталкивался с такой проблеммой - ОТЗОВИТЕСЬ !

Для тех кто заинтересовался привожу текст проги:
(могу выслать сам исходник - всего 4 Кб - или посмотрите присоединенный к этому сообщению файл.
Mой адрес: [email]seawolf@te.net.ua[/email])

======Текст программы в форме================

Public WithEvents objN As cNotebook
Private Sub Form_Load()
Set objN = New cNotebook
objN.DisplayedRec = 2
End Sub
Public Sub objN_Aa(i As Integer)
MsgBox i 'эта строка даст знать сгенерировалось
'ли событие, а значение i нам сразу
'скажет какой оператор RaiseEvent
'не сработал
End Sub

=============================================
=========Текст программы в модуле класса=====
Public Event Aa(i As Integer)
Public Property Let DisplayedRec(ByVal iNewDisplayedRec As Integer)
RaiseEvent Aa(2)
End Property
Private Sub Class_Initialize()
RaiseEvent Aa(1)
End Sub
==============================================
Еще раз HELP !