Public Type TMyType
   i As Long
   s As String
End Type

Private Sub Command1_Click()
 Dim c As New Collection
 Dim a As TMyType
 Dim b As TMyType
 Dim i As Long
 
 a.i =  111 
 a.s = "первый"
 b.i =  222 
 b.s = "второй"
 c.Add a
 c.Add b
 
 AutoRedraw = True
 Cls
 For i =  1  To c.Count
    Print "[" & i & "]: i=" & c(i).i & ", s=""" & c(i).s & """"
 Next i
End Sub

    typedef [uuid(FD0E40BF-5F75-45B4-8A1A-AD2C22A4B486), version( 1 . 0 )]
    struct tagTMyType {
        [helpstring("i")        
]
        long i;
        [helpstring("s")        
]
        BSTR s;
    } TMyType;

typedef /* [version][uuid] */ struct  tagTMyType
    {
    /* [helpstring] */ long i;
    /* [helpstring] */ BSTR s;
    }	TMyType;

Public Type RelationItem
   Top As Long
   Right As Long
End Type

Private Type RelationItemCcy
   Value As Currency
End Type

Public Function BoxRelationItem(RI As RelationItem) As Currency
 Dim c As RelationItemCcy
 LSet c = RI
 BoxRelationItem = c.Value
End Function

Public Function UnboxRelationItem(BoxedVal As Currency) As RelationItem
 Dim RI As RelationItem
 Dim c As RelationItemCcy
 c.Value = BoxedVal
 LSet RI = c
 UnboxRelationItem = RI
End Function