[VB.NET] Proprietà Checked di un CheckBox

[adone79]

Vorrei ottenere una variabile booleana consenso_allarmi come and logico di altre 4 boolean : consenso1_data , consenso2_data , consenso3_data , consenso4_data

Queste a loro volta vengono acquisite leggendo lo stato checked di altrettanti checkbox , ma putroppo la lettura non va a buon fine e mi legge solo il primo checkbox.

Vi posto il codice , potreste dirmi se sbaglio ad usare la proprietà checked?

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim consenso_inizializzazione As Boolean
    Dim consenso_allarmi As Boolean
    Dim consenso1_data As Boolean
    Dim consenso2_data As Boolean
    Dim consenso3_data As Boolean
    Dim consenso4_data As Boolean

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TabControl1.SelectedTab = Inizializzazione
        controllo_inizializzazione()
    End Sub

    Private Sub controllo_inizializzazione()
        consenso_allarmi = acquisisci_consensi()
        Label1.Text = consenso_allarmi
        If consenso_allarmi = True Then
            TabControl1.SelectedTab = Allarmi_diagnosi
        Else
            Automatico.Enabled = False
            punto_punto.Enabled = False
            Jog.Enabled = False
        End If
    End Sub

    Function acquisisci_consensi() As Boolean
        consenso1_data = CheckBox_consenso1.Checked
        Labelconsenso1.Text = consenso1_data
        'da sostituire ad hw collegato con consenso1_data = consenso1.GetOPCItemData(1)
        consenso2_data = CheckBox_consenso2.Checked
        Labelconsenso2.Text = consenso2_data
        'da sostituire ad hw collegato con consenso2_data = consenso2.GetOPCItemData(2)
        consenso3_data = CheckBox_consenso3.Checked
        Labelconsenso3.Text = consenso3_data
        'da sostituire ad hw collegato con consenso3_data = consenso3.GetOPCItemData(3)
        consenso4_data = CheckBox_consenso4.Checked
        Labelconsenso4.Text = consenso4_data
        'da sostituire ad hw collegato con consenso4_data = consenso4.GetOPCItemData(4)
        acquisisci_consensi = consenso1_data And consenso2_data And consenso3_data And consenso4_data
    End Function

    Private Sub CheckBox_consenso1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox_consenso1.CheckedChanged
        ' da sostituire ad hw collegato con consenso1.onnewopcdata() 
        controllo_inizializzazione()
    End Sub

    Private Sub CheckBox_consenso2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox_consenso1.CheckedChanged
        ' da sostituire ad hw collegato con consenso2.onnewopcdata() 
        controllo_inizializzazione()
    End Sub

    Private Sub CheckBox_consenso3_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox_consenso1.CheckedChanged
        ' da sostituire ad hw collegato con consenso3.onnewopcdata() 
        controllo_inizializzazione()
    End Sub

    Private Sub CheckBox_consenso4_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox_consenso1.CheckedChanged
        ' da sostituire ad hw collegato con consenso4.onnewopcdata() 
        controllo_inizializzazione()
    End Sub
End Class

Ringrazio sin d'ora chi vorrà darmi una mano.

[Mychy]

prova con:
consenso1_data = CheckBox_consenso1.Checkedstate