Imports System

Imports System.Collections.Generic

Imports System.Linq

Class test

    public name

    Public param1

    Public param2

End Class

​

Public Module Module1

    Public Sub Main()

        Dim num0 = New Test With {.name = "num0", .param1 = 0, .param2 = 0}

        Dim num1 = New Test With {.name = "num1", .param1 = 0, .param2 = 0}

        Dim num2 = New Test With {.name = "num2", .param1 = 1, .param2 = 0}

        Dim num3 = New Test With {.name = "num3", .param1 = 0, .param2 = 1}

        Dim num4 = New Test With {.name = "num4", .param1 = 1, .param2 = 1}

        Dim list As New List(Of test)

        list.add(num0)

        list.add(num1)

        list.add(num2)

        list.add(num3)

        list.add(num4)

        For Each myGroup In From c In list Group c By Key = New With {c.param1, c.param2} Into Group select group

        Console.WriteLine(myGroup(0).name)

    Next

    End Sub

End Module