Italian Array di moltissimi pulsanti

Dim BotMappa(13)  As Button
Dim b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13 As Button

BotMappa = Array As Button (b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13)
for i=0 to 12
    BotMappa(i).Initialize ("BotMappa")
    Activity.addview (BotMappa(i), ecc ecc ecc
next

Dim BotMappa(13)  As Button

For i=0 to 12
    BotMappa(i).Initialize ("BotMappa")
    Activity.AddView (BotMappa(i), ecc ecc ecc
    BotMappa(i).Tag = i
Next
'
'
Sub BotMappa_Click
    Dim btn As Button
    Dim Index As Int

    btn = Sender      ' button that raised the ecent
    Index = btn.Tag  ' index of the button that raised the event
    '  your code
End Sub

for i=0 to 12
    Dim btn As Button
    btn.Initialize ("BotMappa")
    Activity.addview (btn, ecc ecc ecc
next