Eventi di una matrice di controlli in VB.NET

Ho trovato come far rispondere a uno stesso evento una matrice di controlli!
Tramite l'istruzione AddHandler aggiungo a un evento da me creato con un nome arbitrario l'handler dell'evento di ciascun elemento della matrice che voglio evocare con l'evento da me creato.

Public Class Form1
    Dim btn(3) As Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For n = 0 To 2
            btn(n) = New Button
            Me.Controls.Add(btn(n))
            On Error Resume Next
            btn(n).Top = btn(n - 1).Top + btn(n).Height
            AddHandler btn(n).Click, AddressOf evento
        Next
    End Sub
    Private Sub evento(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("ciao")
    End Sub
End Class

Semplice!!!
La gestione degli eventi in VB.NET è nettamente superiore a quella del VB6.