Public Class frmcboBinding
 
    Dim cbo As New CheckBox
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim WithEvents btnModify As New Button With _
        {.Parent = Me, .Text = "Modify"}
 
    Dim tc As New TabControl With {.Parent = Me}
 
 
 
    Private Sub frmcboBinding_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'Testdaten
        dt.Columns.Add("Bool", GetType(Boolean))
        dt.Rows.Add(True)
        dt.Rows.Add(False)
 
        'Datenbindung
        bs.DataSource = dt
        cbo.DataBindings.Add _
           ("Checkstate", bs, "Bool", True, DataSourceUpdateMode.Never)
 
        'Tabcontrol einrichten
        tc.Size = New Size(200, 200)
        tc.Top = 50
        With tc
            .TabPages.Add(New TabPage("Null"))
            .TabPages.Add(New TabPage("Bool"))
            .TabPages(0).Location = New Point(5, 5)
            cbo.Parent = tc.TabPages(1)
        End With
 
    End Sub
 
 
    Private Sub btnModify_Click(sender As Object, _
        e As System.EventArgs) Handles btnModify.Click
 
        'Wert ändern
        Dim value As Boolean = True
        If dt.Rows(0)(0).Equals(True) Then value = False
        dt.Rows(0)(0) = value
 
        'Ist der Wert in die Quelle eingetragen ????
        If Not dt.Rows(0)(0).Equals(value) Then Stop
    End Sub
End Class