Individuare il numero d'indice di Controlli appartenenti al medesimo gruppo di Eventi senza servirsi di sue specifiche proprietà

Sovente, per individuare in una routine il Controllo, appartenente a un medesimo gruppo di Eventi, che ha sollevato l'Evento, si fa riferimento a una sua Proprietà, come ad esempio ".Name".
E' possibile anche ottenere quanto descritto nel titolo di questa pagina

Mostriamo un esempio pratico, nel quale sul Form sono presenti tre Button, creati da codice e appartenenti a un medesimo gruppo di Eventi.
Cliccando su uno dei tre Button, si vuole sapere il numero d'indice del Button ha sollevato l'Evento "_Click()".

Public Sub Form_Open()

 Dim Tasti As Button

 For b As Byte = 1 To 3
   With Tasti = New Button(Me) As "Tasti"
     .X = 100 * b
     .Y = 100 * b
     .W = 60
     .H = 40
   End With
 Next 

End


Public Sub Tasti_Click()

 For b As Byte = 0 To Me.Children.Max
   If Me.Children[b] = Last Then Print b
 Next

End