Sub Class_Globals
End Sub
'Code in Main:
'Private Mytest As Qtest 'in Globals
' Mytest.Initialize(Me)
'This is the callback sub in Main
'Sub MainTest(msg As String)
' Log("Hello from MainTest: " & msg)
'End Sub
'Code in Class Module
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (Target As Object)
'Quick check
LogColor("EXISTS: " & SubExists(Me, "Test"), Colors.Blue)
CallSub2(Me,"Test","No delay")
CallSubDelayed2(Me,"Test","Delayed")
Log("After Local Test")
LogColor("Target EXISTS: " & SubExists(Target, "MainTest"), Colors.red)
CallSub2(Target,"MainTest","No Delay")
CallSubDelayed2(Target,"MainTest","Dalayed")
Log("After target Test")
LogColor("MAIN EXISTS: " & SubExists(Main, "MainTest"), Colors.magenta)
CallSub2(Main,"MainTest","No Delay")
CallSubDelayed2(Main,"MainTest","Delayed")
Log("After Main Test")
End Sub
Private Sub Test(msg As String)
Log("Local: Tested OK: " & msg)
End Sub