Как вызывать различные процедуры по одному событию?

'** Class_1***
private frm as Form... 'содержит кнопку OK
Public Sub ShowFrm()
 frm.Show
End Sub
Public Sub M_Class1()
End sub
 
'** Class_2***
private frm as Form... 'содержит кнопку OK
Public Sub ShowFrm()
 frm.Show
End Sub
Public Sub M_Class2()
End sub
 
'***** использование *****
Dim C1 as new Class_1, C2 as Class_2
C1.Show
'если нажать OK надо выполнять M_Class1
С2.Show
'если нажать OK надо выполнять M_Class2

'** 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'

Public ParentClass As MyClass ' Ссылка на родительский класс
Private Sub CB1_Click()
    ParentClass.Click ' Вызываем метод родительского класса
End Sub

Dim cl(3) As New MyClass
Private Sub CommandButton1_Click()
    ' Создаем экземпляры класса MyClass.
    cl(1).Name = '1111111111'
    cl(2).Name = '2222222222'
    cl(3).Name = '3333333333'
End Sub
Private Sub CommandButton2_Click()
    cl(1).show
End Sub
Private Sub CommandButton3_Click()
    cl(2).show
End Sub
Private Sub CommandButton4_Click()
    cl(3).show
End Sub

Public Name As String
Dim form As New UserForm1
Public Sub Click()
    MsgBox Name
End Sub
Public Sub show()
    ' Класс 'показывает' свой экземпляр формы
    form.show
End Sub
Private Sub Class_Initialize()
    Load form
    ' в дочерней форме ставим ссылку родительского класса 'на себя'
    Set form.ParentClass = Me
End Sub