在VB.NET中，可以使用以下两种方式来比较两个For Each列表：

1. 使用LINQ进行比较： 以下是使用LINQ进行比较的示例代码：

Dim list1 As New List(Of Integer)()
list1.Add(1)
list1.Add(2)
list1.Add(3)

Dim list2 As New List(Of Integer)()
list2.Add(1)
list2.Add(2)
list2.Add(4)

' 使用LINQ的SequenceEqual方法进行比较
Dim areEqual As Boolean = list1.SequenceEqual(list2)

If areEqual Then
    Console.WriteLine("两个列表相等")
Else
    Console.WriteLine("两个列表不相等")
End If

2. 使用For Each循环进行比较： 以下是使用For Each循环进行比较的示例代码：

Dim list1 As New List(Of Integer)()
list1.Add(1)
list1.Add(2)
list1.Add(3)

Dim list2 As New List(Of Integer)()
list2.Add(1)
list2.Add(2)
list2.Add(4)

Dim areEqual As Boolean = True

If list1.Count <> list2.Count Then
    areEqual = False
Else
    For Each item1 As Integer In list1
        Dim found As Boolean = False
        For Each item2 As Integer In list2
            If item1 = item2 Then
                found = True
                Exit For
            End If
        Next
        
        If Not found Then
            areEqual = False
            Exit For
        End If
    Next
End If

If areEqual Then
    Console.WriteLine("两个列表相等")
Else
    Console.WriteLine("两个列表不相等")
End If

以上两种方法都可以用来比较两个For Each列表，选择哪种方法取决于具体情况和需求。