Dim h1 = New With {.Name = "Marco", .Country = "USA"}
Dim h2 = New With {.Name = "Marco", .Country = "Italy"}
Dim h3 = New With {Key .Name = "Marco", .Country = "USA"}
Dim h4 = New With {Key .Name = "Marco", .Country = "Italy"}
Dim h5 = New With {Key .Name = "Marco", Key .Country = "USA"}
Dim h6 = New With {Key .Name = "Marco", Key .Country = "Italy"}
Console.WriteLine("h1 a h2 jsou {0}", If(h1.Equals(h2), "toton", "odlin"))
Console.WriteLine("h3 a h4 jsou {0}", If(h3.Equals(h4), "toton", "odlin"))
Console.WriteLine("h5 a h6 jsou {0}", If(h5.Equals(h6), "toton", "odlin"))
