by ULLI (93 Submissions)
Category: Data Structures
Compatability: VB Script
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(5 Votes)
Example
VBcodersOption Explicit
Private Type tNested
Blah As String
Blabla As Long
End Type
Private Type tSomething
Stuff As String
MoreStuff As Long
aNested() As tNested
Whatever As Integer
End Type
Private aSomething() As tSomething
Private Sub Form_Click()
Dim i As Long
ReDim aSomething(1 To 500)
For i = 1 To 500
ReDim aSomething(i).aNested(1 To 10)
Next i
aSomething(12).aNested(7).Blah = "Hallo Michael"
Debug.Print aSomething(12).aNested(7).Blah
End Sub
