Class Object1
Sub Class_Globals
end sub
Sub OneSub as Boolean
...
end sub
Class Object2
Sub Class_Globals
Private obj1 as Object1
end sub
Sub SetObject1 (o as Object1)
obj1 = o
end sub
Sub AnotherSub
If obj1.OneSub then ...
end sub
Main code
dim obj1 as Object1
dim obj2 as Object2
obj1.Initialize
obj2.Initialize
obj2.SetObject1(obj1)
obj2.AnotherSub