Private Sub cmdActivate_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdActivate.Click
        gsCheckedBS = ""
        If chkBS01.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS01.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS02.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS02.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS03.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS03.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS04.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS04.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS05.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS05.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS06.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS06.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS07.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS07.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS08.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS08.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS09.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS09.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        If chkBS10.Checked = True Then
            gsCheckedBS = gsCheckedBS & "9"
        ElseIf chkBS10.Checked = False Then
            gsCheckedBS = gsCheckedBS & "8"
        End If
        gsIni.WertSchreiben("Checker", "YesNo", gsCheckedBS)
        frmCodeBase.ShowDialog()
        If gsFsOk = True Then
            cmdBS01.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS01", _
              Nothing)
            cmdBS01.Enabled = True
            cmdBS02.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS02", _
              Nothing)
            cmdBS02.Enabled = True
            cmdBS03.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS03", _
              Nothing)
            cmdBS03.Enabled = True
            cmdBS04.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS04", _
              Nothing)
            cmdBS04.Enabled = True
            cmdBS05.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS05", _
              Nothing)
            cmdBS05.Enabled = True
            cmdBS06.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS06", _
              Nothing)
            cmdBS06.Enabled = True
            cmdBS07.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS07", _
              Nothing)
            cmdBS07.Enabled = True
            cmdBS08.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS08", _
              Nothing)
            cmdBS08.Enabled = True
            cmdBS09.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS09", _
              Nothing)
            cmdBS09.Enabled = True
            cmdBS10.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS10", _
              Nothing)
            cmdBS10.Enabled = True
            cmdActivate.Visible = False
            cmdAllBS.Visible = False
        End If
    End Sub

    Private Sub frm_Activated_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Call cmdBS01_Click()
    End Sub