Private Sub LblClearParts_Click()
 If CmbChooseUndo.ListIndex = 0 Then    'Hier wird alles zurückgesetzt und das kkappt auch
  For clc = 0 To LblPartNumb.Count - 1
   LblPartNumb(clc).BackColor = cColor
  Next
  ListParts.Clear: TLabelII.Enabled = True
  LblChooseCount.Caption = ""
 Else                                   'ab hier *undo-Schritte*  
  If ListParts.ListCount > 0 Then
   LblPartNumb(ListParts.List(ListParts.ListCount - 1)).BackColor = cColor   '<- Hier sollten eigentlich die ausgewählten Labels ihren ursprünglichen Backcolor erhalten der In der 
                                                                             'Variablen *cColor* enthalten ist
   ListParts.RemoveItem (ListParts.ListCount - 1)                            'Hier wird die Listbox schrittweise geleert was auch funktioniert
   LblChooseCount.Caption = ListParts.ListCount
  End If
  If ListParts.ListCount < 1 Then
   LblChooseCount.Caption = "": TLabelII.Enabled = True
  End If
 End If
End Sub