GetParent

' Child Class Code: Class1.cls

Private Parent as Object
'It's better to Declare the specific Parent class:

'Private Parent as MyParentClass


Public Sub SetParent(ParentAddress as Object)
Set Parent = ParentAddress
End Sub

Public Function ExampleSumVars
ExampleSumVars = Parent.Variable1 + Parent.Variable2
End Sub

'--- Parent Class Code: Class2.cls

Public Variable1
Public Variable2

Public Sub Example
Dim child As New Class1
Variable1 = 10
Variable2 = 5
child.SetParent Me
'Here you are passing the current class address

MsgBox child.ExampleSumVars
End Sub

'--- Form Code: Form1.frm


Private Sub Command1_Click
Dim test as new Class2
Call test2.Example
End Sub