Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not Page.IsPostBack Then
                Dim DT As New DataTable("ListaElementi")

                DT.Columns.Add("ID", GetType(Integer))
                DT.Columns.Add("Valore", GetType(String))
                DT.Columns.Add("Selected", GetType(Boolean))

                DT.Rows.Add(1, "Test1")
                DT.Rows.Add(2, "Test2")
                DT.Rows.Add(3, "Test3")
                DT.Rows.Add(4, "Test4")

                Me.cblTest2.DataValueField = "ID"
                Me.cblTest2.DataTextField = "Valore"
                Me.cblTest2.DataSource = DT
                Me.cblTest2.DataBind()
            End If
        End Sub

        Private Sub btnSalva_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSalva.Click
            'Ciclo per tutti i valori della check box list
            For Each objListItem As ListItem In Me.cblTest.Items
                'Controllo se l'elemento è selezionato
                If objListItem.Selected Then
                    'Salvo la selezione su DB
                End If
            Next
        End Sub

        Private Sub btnSalva2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSalva2.Click
            'Ciclo per tutti i valori della check box list
            For Each objListItem As ListItem In Me.cblTest2.Items
                'Controllo se l'elemento è selezionato
                If objListItem.Selected Then
                    'Salvo la selezione su DB
                End If
            Next
        End Sub