'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
End Sub
Sub AppStart (Args() As String)
StartTest
StartMessageLoop
End Sub
Public Sub StartTest()
Dim m As Map = Normal1
LogError("2=" & GetType(m))
Wait For (Res1) Complete (Result As Object)
LogError("4=" & GetType(Result))
m = Result
End Sub
Public Sub Res1() As ResumableSub
Sleep(0)
Dim m As Map
m.Initialize
LogError("3=" & GetType(m))
Return m
End Sub
Public Sub Normal1() As Object
Dim m As Map
m.Initialize
LogError("1=" & GetType(m))
Return m
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub