VBnet Array de estructuras. ANIDADOS

[mireis]

Hola!

Estoy acostumbrada a trabajar con VB6 y en VBnet tengo problemas a la hora de definir arrays y estructuras anidadas entre ellas.

Public Structure PEQUENA
Dim a as short
Dim b as double
End Structure

Public Structure MEDIANA
Dim A() as PEQUENA 'No puedo definir directamente su dimension
Dim c as short
Public Sub Initialize()
A(38) = New PEQUENA 'Quizas un Redim A(38) bastaria
End Sub
End Structure

Public Structure GRANDE
Dim B() as MEDIANA
Dim d as double
Public Sub Initialize()
B(25).Initialize() 'aqui aparece el problema
End Sub
End Structure


'En el modulo

Public Objet(50) as GRANDE
Public Sub initialize_objet()
Dim i as integer
For i=0 to i=49
Objet(i).Initialize
Next
End Sub

El problema son los "initialize" que debo emplear para redimensionar los arrays, me indica que "la referencia de objeto no esta definida a una instancia de objeto". Como deberia definir los arrays dentro de las estructuras con tal de darles la dimension deseada?

Gracias!