In a calling procedure:
Dim B(20) as ByteSimilarly, the variant can be passed back in the form of function result.
Dim V as Variant
V = B
'Call the sub "MySub"
MySub (V)
'-----------------
'In MySub:
Dim Bb() as Byte
Dim Vb as Variant
Bb = Vv
'The Bb array is redimensioned automatically.
No comments:
Post a Comment