Private Sub Checkbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles "tutte le checkbox"

        Dim Controllato As Object = New Button

        For Each Oggetto In Me.Controls

            If TypeOf Oggetto Is Button AndAlso Oggetto.Name.ToString.Length = 15 Then 'ho scelto che i nomi dei pulsanti devono avere 15 caratteri di cui gli ultimi 2 sono delle cifre"

                If Microsoft.VisualBasic.Right(Oggetto.Name.ToString, 2) = Microsoft.VisualBasic.Right(sender.Name.ToString, 2) Then

                    Controllato = Oggetto

                End If

            End If

        Next

        If sender.Checked = True Then

            Controllato.Enabled = True

            form2.Trasponder = Controllato
            form2.ShowDialog()

            Controllato.Tag = form2.Trasponder.Tag
            Controllato.Text = form2.Trasponder.Text

            form2.Dispose()

        Else

            Controllato.Enabled = False
            Controllato.Text = "NomePulsante " & Microsoft.VisualBasic.Right(sender.Name.ToString, 2)

        End If

    End Sub