Dim t as myType
t.initialize
t= mapMyTypes.Get("type1")
'OR
Dim t as myType=CreatemyType(...
t= mapMyTypes.Get("type1")
Public Sub CreatemyType (str As String, b As Boolean, i As Int) As myType
Dim t1 As myType
t1.Initialize
t1.str = str
t1.b = b
t1.i = i
Return t1
End Sub