Non sapevo :-\ che la proprietà .Tag di un oggetto potesse essere anche un array capace di contenere valori di diverso tipo; una sorta di Struttura !
Public Struct provStrutt ' dichiaro una Struttura
a As Byte
b As Integer
c As String
End Struct
Private pStr As New ProvStrutt ' creo una variabile del tipo della Struttura
Public Sub Button1_Click()
Dim prova As String = "prova"
Dim arrarr As New Byte[]
Dim j As Byte
With pStr ' assegno alcuni valori agli elementi della variabile del tipo di quella Struttura
.a = 10
.b = 1000
.c = "c = " & Str(.a + .b)
End With
For j = 0 To 9 ' assegno i valori per ciascun elemento della variabile array
arrarr.Add(j + 100)
Next
With Button1
.Tag = ["ali", "baba", 324, prova, arrarr, pStr] ' assegno un array formato da valori e variabili al .Tag del Button, poi li vado a vedere...
Print .Tag[0]
Print .Tag[1]
Print .Tag[2]
Print .Tag[3]
For j = 0 To 9
Print .Tag[4][j] ' vedo tutti i valori assegnati agli elementi della variabile array
Next
Print .Tag[5].a ' vado a vedere i valori contenuti dagli elementi della variabile di tipo "Struttura"
Print .Tag[5].b
Print .Tag[5].c
End With
End