[RESOLVED] Transfer UDT to Class [Nested Classes]

[some1uk03]

Hello,

I have a pretty huge UDT but I'm now converting it as a Class Structure. However I'm having issues passing from/to the nested class properties.

Example:

Dim testDB() As Class1_Main

Private Sub Form_Load()
    ReDim testDB(0)
    Set testDB(0) = New Class1_Main
    testDB(0).Item(0).xName = "test"    'TEST isn't being passed on?

    MsgBox testDB(0).Item(0).xName      'EMPTY<<<<<<<<<<<<<

    End
End Sub

I've attached the Simple Project.
Any help would be appreciated.