'-----------Класс-----------------
Dim WithEvents bb As Form

Public Property Set EventFrm(ByVal valEvent As Form)
Set bb = valEvent
End Property

'---------Форма------------------
Private clsF As clsForm


Private Sub MDIForm_Initialize()
Set clsF = New clsForm
Set clsF.EventFrm = Me
End Sub

В строке Set bb = valEvent возникает ошибка:
Object or class does not support the set of events

Как всетаки передать объекту событие????? Помогите!!!!!!!!!

У меня тоже sp5 . Ставил by Ref , ничего не выходит!
Тот же глюк, та же ошибка :-((((