Italian Button o Label indicizzati

Sub NomeEventoComune_Click
    Dim btn As Button = Sender ' <---- Sender è l'oggetto che ha scatenato l'evento
    ...
End Sub

For Each btn As Button In Panel1.GetAllViewsRecursive
    btn...

Dim mapButtons As Map
mapButtons.Put(0, Button1)
mapButtons.Put(1, Button2)
...

dim btn as button = sender
dim numerobottone as int = btn.tag

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form

    Private Label1 As Label   
    Private Button1 As Button
    Private Button2 As Button
    Private Button3 As Button
    Private Button4 As Button
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    'MainForm.SetFormStyle("UNIFIED")
    MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show
End Sub


Sub ButtonA_MouseClicked (EventData As MouseEvent)
    Dim btn As Button = Sender
    Dim numerobottone As Int = btn.tag
   
    Label1.Text = numerobottone
End Sub