Найти максимум количества элементов в List

Public Class Form1
    ' Объявление List(Of...
    Dim MyList As New List(Of Integer())
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Загрузка массивов в List(Of...
        MyList.Add({0, 1, 2, 3})
        MyList.Add({4, 5, 6})
        MyList.Add({7, 8, 9})
        MyList.Add({10, 11, 12, 13, 14})
        MyList.Add({15, 16})
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Поиск максимального количества элементов в масивах  в List(Of...
        Dim MaxCount As Integer = -1
        For Each ArrayList() As Integer In MyList
            If ArrayList.Count > MaxCount Then MaxCount = ArrayList.Count
        Next
        Label1.Text = MaxCount
    End Sub
 
End Class

MyList = New List(Of Integer())
MyList.Add({0, 1, 2, 3})
MyList.Add({4, 5, 6})
MyList.Add({7, 8, 9})
MyList.Add({10, 11, 12, 13, 14})
MyList.Add({15, 16})
Dim nn = From ar As Array In MyList Select ar.Length
MsgBox(nn.Max)

        Label1.Text = (From ar As Array In MyList Select ar.Length).Max