Private Sub Button1_Click
Dim mContainer As Map
mContainer.Initialize
GetDataType = CreateDataType
GetDataType.Map1.Put("Index0", "Value0")
GetDataType.Map2.Put("Index0b", "Value0b")
GetDataType.List1.Add("List0")
GetDataType.List2.Add("List0b")
mContainer.Put("First Data Type", GetDataType)
'-----------------------------------------------
GetDataType = CreateDataType
GetDataType.Map1.Put("Index1", "Value1")
GetDataType.Map2.Put("Index1b", "Value1b")
GetDataType.List1.Add("List1")
GetDataType.List2.Add("List1b")
mContainer.Put("Second Data Type", GetDataType)
'------------------------------------------------
'Read the container
Log(mContainer.Get("First Data Type").As(DataType).Map1) 'Log: (MyMap) {Index0=Value0}
Log(mContainer.Get("Second Data Type").As(DataType).Map1) 'Log: (MyMap) {Index1=Value1}
End Sub
Public Sub CreateDataType As DataType
Dim t1 As DataType
t1.Initialize
t1.Map1.Initialize
t1.List1.Initialize
t1.Map2.Initialize
t1.List2.Initialize
Return t1
End Sub