Evento nei vari elementi di un ArrayList

Ecco il codice per gestire un evento in tutti gli elementi di un ArrayList:

Public Class Form1
    Dim matrice As ArrayList
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        matrice = New ArrayList
        matrice.Add(TextBox1)
        matrice.Add(TextBox2)
        matrice.Add(TextBox3)
        For Each elemento As TextBox In matrice
            AddHandler elemento.Click, AddressOf evento
        Next
    End Sub
    Sub evento(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox("Ciao")
    End Sub
End Class