Dim m1 As Map = CreateMap("name": "Rocket Skates", "price": 12.75, "color": "yellow") Dim m2 As Map = CreateMap("price": 15.25, "color": "red", "year": 1974) Dim merged As Map merged.Initialize For Each m As Map In Array(m1, m2) For Each key As Object In m.Keys merged.Put(key, m.Get(key)) Next Next Log(merged)