Dim name As String, klasse As String
Dim maxid, index As Integer
 
'....................................
'....................................
With myschuelerlist
    maxid = -1 : Index = -1
    For i As Integer = 0 To .Count - 1
       With .Item(i)
          If .Name = name AndAlso .Klasse = klasse Then
             If maxid < .ID Then
                maxid = .ID : Index = i
             End If
          End If
       End With
    Next i
    If Index >= 0 then .RemoveAt(Index) 'Letzen Eintrag löschen
End With

For i As Integer = .Count - 1 To 0 Step -1
   For k As Integer = .Count - 1 To i + 1 Step -1
      If .Item(i).Name = .Item(k).Name AndAlso .Item(i).Klasse = .Item( _
        k).Klasse Then
         .RemoveAt(i)
      End If
   Next k
Next i