Sub DemoArray()
Dim ca = MakeArray( _
New With {.Name = "Marco", .Country = "Italy"}, _
New With {.Name = "Tom", .Country = "USA"}, _
New With {.Name = "Paolo", .Country = "Italy"})
Console.WriteLine("ca je {0}", ca.GetType())
End Sub

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