Обработка событий формы в классе

Public Event OkClicked()

Private Sub btnOk_CLICKED()
RaiseEvent OkClicked
End Sub

Dim WithEvents MyFormNew As MyForm

Public Sub Show()
Set MyFormNew = New MyForm
MyFormNew.Show
End Sub

Private Sub MyFormNew_OkClicked()
MsgBox 'Ura'
End Sub

'class MyClass
friend sub FireEventOK()
   MsgBox 'Ura'
end sub
 
Public Sub Show()
Set MyFormNew = New MyForm
MyFormNew.MyClass=me
MyFormNew.Show
End Sub

'form MyForm
private mvarMyClass as MyClass
friend property Let MyClass(vData as MyClass)
  set mvarMyClass =vData
end property
 
Private Sub btnOk_CLICKED()
 
   mvarMyClass.FireEventOK
 
End Sub

Private lgMyClass As Test.MyClass
 
Private Sub cmdOk_Click()
    Set lgMyClass = New Test.MyClass
End Sub

Private WithEvents MyFormNew As MyForm
 
 
 
Private Sub MyFormNew_OkClicked()
MsgBox 'Ura'
End Sub
 
 
Private Sub Class_Initialize()
Set MyFormNew = New MyForm
    MyFormNew.Show
End Sub
 
 
Private Sub Class_Terminate()
     Set MyFormNew = Nothing
End Sub

Public Event OkClicked()
Public Sub FormShow()
    Set MyFormNew = New MyForm
    MyFormNew.Show
End Sub
 
Private Sub cmdOk_Click()
    RaiseEvent OkClicked
End Sub

'** Class_1***
Dim frm as New Form1 'содержит кнопку OK
Dim WithEvents btn As CommandButton
 
Public Sub ShowFrm()
frm.Show
Set btn=frm.Command1
End Sub
 
Private Sub btn_Click()
MsgBox 'Класс1'
End Sub

'** Class_2***
Dim frm as New Form1 'содержит кнопку OK
Dim WithEvents btn As CommandButton
 
Public Sub ShowFrm()
frm.Show
Set btn=frm.Command1
End Sub
 
Private Sub btn_Click()
MsgBox 'Класс2'
End Sub

'***** использование *****
Public C1 As New Class_1, C2 As New Class_2
C1.Show
'если нажать Command1 выполнится MsgBox 'Класс1'
 
С2.Show
'если нажать Command1 выполнится MsgBox 'Класс2'