Object variable or With block variable not set error in Class
I have a confusing problem. I am getting a Run-time error '91': on
this. It is a simple example of a class that holds a class. What am
I doing wrong? Here is the entire program....
-------------------
Form:
-------------------
Private Sub Form_Load()
Dim Base1 As BaseClass
Set Base1 = New BaseClass
Base1.Group1.ReDimmyarray (2)
Base1.Group1.person(2).ID = 34
End Sub
--------------
Base Class:
--------------
Option Explicit
Public Group1 As Group
Private Sub Class_Initialize()
Set Group1 = New Group
End Sub
-----------------------
Group Class
-----------------------
Option Explicit
Private people() As Member
Public Sub ReDimmyarray(NewBound As Integer)
ReDim people(1 To NewBound)
Dim I As Integer
For I = 1 To NewBound
Set people(I) = New Member
Next
End Sub
Public Property Get person(iIndex As Integer) As Member
person = people(iIndex)
End Property
-----------------
Member Class
-----------------
Option Explicit
Public ID As Integer
