VB 两个List 去重

Public Class User
        
        Public Property ID As Integer
        Public Property Name As String
        
        Public Sub New(ByVal id As Integer, ByVal name As String)
            Me.ID = id
            Me.Name = name
        End Sub
        
    End Class

Dim list As New List(Of Employee)()
        list.Add(New User(2, "test2"))
        list.Add(New User(3, "test3"))
        list.Add(New User(1, "test1"))
        list.Add(New User(2, "test2"))

Dim removeList As New List(Of Integer)

removeList.Add(1)

removeList.Add(2)

For Each filter As Integer In removeList

list.RemoveAll(Function(x)

        If x.id = filter Then 

                Return True

        End If

End Fuction)

Next