События объекта в коллекции - VB

Формулировка задачи:

Подскажите пожалуйста как создать событие объекта? Пишу:

Private WithEvents c As CommandButton
Public Event Click(c)

А куда это (RaiseEvent .Click(c)) совать и(или) как к нему обращаться? Заранее благодарен.

Решение задачи: «События объекта в коллекции»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Public Event MyEvent(ByVal pstrText As String)
 
Public Function RaiseMyEvent(ByVal pstrText As String)
    RaiseEvent MyEvent(pstrText)
End Function
 
Na formu postav' knopku i vstav' eto:
 
Option Explicit
 
Private WithEvents MyClass As Class1
 
Private Sub Command1_Click()
    Set MyClass = New Class1
    MyClass.RaiseMyEvent ("Urra!!!")
    Set MyClass = Nothing
End Sub
 
Private Sub MyClass_MyEvent(ByVal pstrText As String)
    MsgBox (pstrText)
End Sub
                        