Usa AddHandler.
codice:
Dim a As New NomeClasse()
AddHandler a.NomeEvento, AddressOf Me.NomeProcedura
a.Controllo()
Prima della distruzione di a è comunque bene usare RemoveHandler.
codice:
RemoveHandler a.NomeEvento, AddressOf Me.NomeProcedura