Private Sub Btn_typesearch_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Btn_typesearch.Click
        Dim I As Integer
        Dim U As Integer
        With Lbx_6TypArten
            While I < .Items.Count()
                U = I + 1
                Do Until U > .Items.Count() - 1
                    If .Items(U) = Me.Lbx_6TypArten.Items(I) Then
                        ' doppelten Eintrag gefunden!
                        .Items.Remove(U)
                    Else
                        ' Ist die Liste sortiert, kann an dieser Stelle
                        ' die Schleife verlassen werden, da kein weiterer
                        ' identischer Eintrag mehr vorkommen kann...
                        If .Sorted Then Exit Do
 
                        ' ...ansonsten Zähler um 1 erhöhen
                        'U = U + 1
                    End If
                Loop
                I = I + 1
            End While
        End With
    End Sub

Private Sub DeleteDuplicateValues(Liste As Control)