I have a base class (CAHG.vb) that contains a modular collection variable (mCurMembers). A sub routine (GetEligibility) within the base class populates this collection.

I also have a new class (CVendor.vb) that inherits the base class and also has 5 new modular collection variables (i.e mRobinsonMembers). There is a sub routine in CVendor that calls GetEligibility which in turn populates mCurMembers.

What I would like to do is create a local variable in the subroutine that is a reference to the appropriate collection object in CVendor. I then want to set this reference object equal to mCurMembers in order to copy the content over.

Any ideas? Passing in a variable byref is not an option. Thanks in advance.

I don't understand what your intention is. But from what I read it sounds like you want to do this:

Sub GetEligibility()
   Dim objCollectionReference
   objCollectionReference = mCurMembers
End Sub

Is this what you want?

That didn't work. That was my original solution. I ended up figuring it out already. I'm not sure where my head was Friday.

My abbreviated solution ended up looking like this:
Protected mCubaMembers,mRobinsonMembers as new collection

Private Sub FillCollection()

    dim Index as integer
    dim colRecords as collection

    Select Case Index
        case 1
            colRecords = mRobinsonMembers
        case 2
            colRecords = mCubaMembers
    End Select

    dim Record as CAHG.Record
    For Each record in mCurMembers
        colRecords.add(record)
    Next
End Sub

Thanks for your help anyway.