Public Sub Doppelt()
    Dim a As Integer
    Dim b As Integer
    For a = 0 To lstA.ListCount - 1
        For b = 0 To lstB.ListCount - 1
            If LCase$(lstA.List(a)) = LCase$(lstB.List(b)) Then
                Exit For
            End If
        Next b
        If b = lstB.ListCount Then
            lstB.AddItem lstA.List(a), a
        End If
    Next a
End Sub

Psst, neues Spiel: IceWars, schnell anmelden!