Dim gr(2) As Grinder_Values 'user defined type
gr(0).Initialize()
gr(0)=CreateGrinder_Values(17.5, 71, 200,12,12,"",0,False)
gr(1).Initialize
gr(1)=CreateGrinder_Values(66,30,200,12,12,"",0,False)
grinders=CreateMap("Name1":gr(0),"Name2":gr(1))
For Each gg In grinders
Log (gg)
Next