[vb.net] List的All方法使用有关问题

[vb.net] List的All方法使用问题
Class MyClass1

    Sub MySub()

        ' 每一个List数组元素中是否包含Arr1数组内的任意元素，这个如何实现呢
        '我要实现List的All方法来判断List的所有每个元素是否包含Arr1任意元素。
        Dim Arr1 As String() = {"1", "2", "3"}

        Dim List1 As New List(Of String())

        List1.Add(New String() {"2", "3", "4"}) 'Arr1中包含2 返回 True
        List1.Add(New String() {"3", "6", "7"}) 'Arr1中包含3 返回 True
        List1.Add(New String() {"4", "1", "9"}) 'Arr1中包含1 返回 True

        Dim boolean1 As Boolean = List1.All(Function(s)) '我在这个部分很难实现，这个All方法的返回结果应该是True



    End Sub



End Class
------解决思路----------------------
List1.All(Function(s) s.Any(Function(x) arr1.Contains(x)))