Public Const C1 As Short = 8
Public Const C2 As Short = 8
Structure A
Dim s As Integer
Dim d As Integer
<VBFixedArray(C1, 4)> Dim Sig(,) As Integer
Public Sub Initialize()
ReDim Sig(C1, 4)
End Sub
End Structure
Structure B
<VBFixedString(1), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=1)> Public mv As String
<VBFixedString(1), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=1)> Public n As String
Dim sb As B
Dim cn As Integer
<VBFixedArray(C2)> Dim Seg() As Integer
Public Sub Initialize()
ReDim Seg(C2)
End Sub
End Structure