Private Sub checkSuche2_CheckedChanged(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles checkSuche2.CheckedChanged
        If checkSuche2.Checked = False Then
            cbSucheA2.Visible = False
            lbSucheA2.Visible = False
            suche_eingabe2.Visible = False
            cbSucheA2.SelectedItem.Clear()
            lbSucheA2.SelectedItem.Clear()
            lbSucheA2.Text = ""
        End If
        If checkSuche2.Checked = True Then
            cbSucheA2.Visible = True
            lbSucheA2.Visible = True
            suche_eingabe2.Visible = True
        End If
    End Sub