Why element size is not 2?

[Petr]

Code: (Select All)

Type snd1
    l As Integer
    r As Integer
End Type

Type snd2
    l As _Unsigned _Byte
    r As _Unsigned _Byte
End Type


ReDim s(0) As snd2 '1
ReDim s(0) As snd1 '2

Print Len(s(0).l) 'expected is 2

Is there any way to fix this, or does that mean I have to completely rewrite 90 percent of the program that relied on this?