Dim hhcount As Integer = gauftrag.Items.Count
                    Dim hh As Integer = -1
                    Dim test As Integer = hhcount - 1
 
                    Do
                        hh += 1
 
                        If gauftrag.Items(hh).SubItems(8).Text = loescher Then _
                          gauftrag.Items(hh).Remove()
 
                    Loop While hh < test