redim of a double dynamic field
 

I have made double dynamic custom data type:
t().b()
How can I redim ALL the fields b in once as in the following cod
(without using a loop):

Public Type ttype
a As Integer
b() As Variant
End Type
Public Sub test()
Dim t() As ttype
ReDim t(10)
ReDim t(ALL FIELDS 0-10).b(5) As Variant
End Sub

Thanks,
Jurry

--
Message posted from http://www.ExcelForum.com