'bsUser = BindingSource
Dim b_checked As New Binding("CheckState", bsUser, "usr_standart")
 
        AddHandler b_checked.Format, AddressOf IntToChecked
        AddHandler b_checked.Parse, AddressOf CheckedToInt
        cbStandart.DataBindings.Add(b_checked)
 
 
    End Sub
 
    Private Sub IntToChecked(ByVal sender As Object, ByVal cevent As _
      ConvertEventArgs)
 
        If cevent.Value Is System.DBNull.Value Then
            cevent.Value = CheckState.Indeterminate
        Else
            Select Case cevent.Value
                Case 0
                    cevent.Value = CheckState.Unchecked
                Case 1
                    cevent.Value = CheckState.Checked
                Case Else
                    cevent.Value = CheckState.Indeterminate
            End Select
        End If
    End Sub
 
    Private Sub CheckedToInt(ByVal sender As Object, ByVal cevent As _
      ConvertEventArgs)
 
        Select Case True
            Case cevent.Value = CheckState.Unchecked
                cevent.Value = 0
            Case cevent.Value = CheckState.Checked
                cevent.Value = 1
            Case cevent.Value = CheckState.Indeterminate
                cevent.Value = System.DBNull.Value
        End Select
    End Sub