'Class module
Sub Class_Globals
Dim Component As Object
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
Dim R As RandomAccessFile
R.Initialize(File.DirDefaultExternal,"Me.RAF",False)
Component = R.ReadObject(0)
R.Close
Log("Me2 "&Component)
End Sub
Sub DoSub
CallSub(Component,"testsub")
End Sub