Не работает UserControl_InitProperties()

[Grover]

Учусь писать ActiveX компонент. И сразу трудности :

Не работает InitProperties()...
Значения по умолчанию не присваиваются, что делать?

Код: Выделить всё

Dim prpCountPages As Integer
Dim prpCurrentPage As Integer

Const prpCountPagesDefault As Integer = 1
Const prpCurrentPageDefault As Integer = 1

Private Sub UserControl_InitProperties()
    prpCountPages = prpCountPagesDefault
    prpCurrentPage = prpCurrentPageDefault
End Sub


Ещё не срабатывает эта функция : Private Sub UserControl_Initialize()