Dim customers() = MakeArray( _
New With {.Name = "Marco", .Discount = 4.5},
New With {.Name = "Paolo", .Discount = 3.0},
New With {.Name = "Tom", .Discount = 3.5}
)

Function MakeArray(Of T)(ByVal ParamArray params
	Return params
End Function

' nsledujc deklarace pat do procedury
Dim query = _
From c In customers _
Where c.Discount > 3 _
Select c.Name, Perc = c.Discount / 100
