'Aktivierungierung der Steuerelemente: combBreitepos1, usw. Enabled von False 
' auf True beim Aktivieren der CheckBox: Pos.1, 2....setzen
 
    Private Sub cbpos1_CheckedChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cbpos1.CheckedChanged
 
        If cbpos1.Checked = True Then
 
            tbpos1.Enabled = True
            cbModelpos1.Enabled = False 'False beibehalen da diese Position 
            ' immer nur den gleichen wert besitzt
            combBreitepos1.Enabled = True
            combLängepos1.Enabled = True
            combTürhöhepos1.Enabled = True
            combEinstiegPos1.Enabled = True
            combMotorenhöhePos1.Enabled = True
            combUKPos1.Enabled = True
            combFarbeStäbePos1.Enabled = True
            cbPrintPos1.Enabled = True
            llbpos1.Enabled = True
 
            'folgendes wird nur einmalig auf true gesetzt wenn eines der 
            ' Checkboxen aktiviert ist, dann beibehalten
 
            cbGesamtlisteHolz.Enabled = True
            llbGesamtlisteHolz.Enabled = True
            cbGesamtlistePlexiglas.Enabled = True
            llbGesamtlistePleyiglas.Enabled = True
            cbGesamtlisteStäbe.Enabled = True
            llbGesamtlisteStäbe.Enabled = True
            btnPDFerzeugen.Enabled = True
            btnPrint.Enabled = True
 
        Else
 
            'beim deaktivieren der CeckBox Werte auf False setzen
            tbpos1.Enabled = False
            combModelpos1.Enabled = False
            combBreitepos1.Enabled = False
            combLängepos1.Enabled = False
            combTürhöhepos1.Enabled = False
            combEinstiegPos1.Enabled = False
            combMotorenhöhePos1.Enabled = False
            combUKPos1.Enabled = False
            combFarbeStäbePos1.Enabled = False
            cbPrintPos1.Enabled = False
            llbpos1.Enabled = False
 
            'folgendes wird nur auf False gesetzt wenn keine CeckBox aktiviert 
            ' ist
            'TODO funkt noch net 100 % wenn z.B.: alle außer CheckBox 10 
            ' aktiviert ist! 
 
 
 
            cbGesamtlisteHolz.Enabled = False
            llbGesamtlisteHolz.Enabled = False
            cbGesamtlistePlexiglas.Enabled = False
            llbGesamtlistePleyiglas.Enabled = False
            cbGesamtlisteStäbe.Enabled = False
            llbGesamtlisteStäbe.Enabled = False
            btnPDFerzeugen.Enabled = False
            btnPrint.Enabled = False
 
 
 
        End If
    End Sub