[RESOLVED] Nested Structure Problem (Revisited)

[BruceR]

Shaggy,

I redid the program per your suggestion of using Classes and I am now back to the "Null Ref Error again. The Structure version works perfectly.

Confused.

Module Module1

    Class MyAcft

        Public Sub New(numParts As Integer)
            ReDim Parts(0 To numParts - 1)
        End Sub

        Property Type As String
        Property Tail As String
        Public Parts() As Part

        Class Part
            Public Number As Integer
            Public Name As String
        End Class

    End Class

   

    Sub Main()

        Dim Acft As New MyAcft(5)

        Acft.Tail = "N12345"
        Acft.Type = "AH1"
        Acft.Parts(0).Number = 555688
        Acft.Parts(0).Name = "Rotor"

        Console.WriteLine("Done")
        Console.ReadLine()

    End Sub

End Module