J
John
Hi
I have the following code;
Public DA(3) As Object
DA(1) = New Class1
DA(2) = New Class2
Is there a way to pass the class types as parameter to a sub as below;
SetDA(Class1,1)
SetDA(Class2,2)
where the sub declares variables for the passed class types, as below?
Sub SetDA(ByRef ClassType As Object, ByVal Subs As Long)
DA(Subs) = New ClassType
End Sub
Thanks
Regards
I have the following code;
Public DA(3) As Object
DA(1) = New Class1
DA(2) = New Class2
Is there a way to pass the class types as parameter to a sub as below;
SetDA(Class1,1)
SetDA(Class2,2)
where the sub declares variables for the passed class types, as below?
Sub SetDA(ByRef ClassType As Object, ByVal Subs As Long)
DA(Subs) = New ClassType
End Sub
Thanks
Regards