Inserire controlli a runtime e assegnare eventi

[dnlcns]

Ciao a tutti.
Dopo mille prove sono riuscito a inserire su un form 4 pulsanti indicizzati Pulsante_Indicizzato(i) creandoli tramite un altro pulsante Button_Crea_4_Pls_Index.
Poi avevo bisogno di assegnare una diversa azione al click per ognuno dei pulsanti creati.
Ecco ... su questo punto stò sbattendo la testa.
Riesco solo a creare la stessa azione su qualsiasi pulsante clicco.
Io vorrei ad esempio che se clicco il Pulsante_Indicizzato(2) su una label Label4 venisse scritto "Indice = 2"
Sotto metto il codice.
Dove sbaglio? Vi prego se possibile un esempio, forse è proprio tramite l'esempio che riesco a capire meglio.
Grazie 1000

Public Class Form1
    'Pulsanti indicizzati
    Dim Pulsante_Indicizzato(4) As Button
    Dim i As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button_Crea_4_Pls_Index_Click(sender As Object, e As EventArgs) Handles Button_Crea_4_Pls_Index.Click


        ' un ciclo for per creare i 4 pulsanti indicizzati
        For i = 1 To 4
            Pulsante_Indicizzato(i) = New Button
            Me.Controls.Add(Pulsante_Indicizzato(i))
            AddHandler Pulsante_Indicizzato(i).Click, AddressOf Pulsante_Indicizzato_Click
        Next
        'poi uno per uno li piazzo, scrivo il testo etc etc......
        Pulsante_Indicizzato(1).Top = 100
        Pulsante_Indicizzato(1).Left = 360
        Pulsante_Indicizzato(1).Width = 180
        Pulsante_Indicizzato(1).Text = "Pulsante_Indicizzato(1)"
        Pulsante_Indicizzato(1).Parent = Me
        Pulsante_Indicizzato(1).BringToFront()


        Pulsante_Indicizzato(2).Top = 130
        Pulsante_Indicizzato(2).Left = 360
        Pulsante_Indicizzato(2).Width = 180
        Pulsante_Indicizzato(2).Text = "Pulsante_Indicizzato(2)"
        Pulsante_Indicizzato(2).Parent = Me
        Pulsante_Indicizzato(2).BringToFront()


        Pulsante_Indicizzato(3).Top = 160
        Pulsante_Indicizzato(3).Left = 360
        Pulsante_Indicizzato(3).Width = 180
        Pulsante_Indicizzato(3).Text = "Pulsante_Indicizzato(3)"
        Pulsante_Indicizzato(3).Parent = Me


        Pulsante_Indicizzato(3).BringToFront()
        Pulsante_Indicizzato(4).Top = 190
        Pulsante_Indicizzato(4).Left = 360
        Pulsante_Indicizzato(4).Width = 180
        Pulsante_Indicizzato(4).Text = "Pulsante_Indicizzato(4)"
        Pulsante_Indicizzato(4).Parent = Me
        Pulsante_Indicizzato(4).BringToFront()
    End Sub


    Private Sub Pulsante_Indicizzato_Click()
        Beep()
        Label4.Text = ???? ' L'indice del Pulsante_Indicizzato() cliccato
    End Sub






End Class