'Activity A
Sub Process_Globals
Public ThisIsAPublicVariable As String
Public ThisIsAPublicClass As SomeClass
End Sub
Sub Activity_Create(FirstTime As Boolean)
ThisIsAPublicClass.Initialize("")
'Initialize the class and set properly
startactivity(activityb)
End Sub
'Activity B
Sub Activity_Create(FirstTime As Boolean)
log(activitya.ThisIsAPublicVariable)
log(activitya.ThisIsAPublicClass)
End Sub
Sub SomeFunction
'Work with activitya.ThisIsAPublicClass
End Sub