This example starts the Status application.
Sub Main()
Dim Sys As Object
Set Sys = CreateObject("EXTRA.System")
Sys.ViewStatus
End Sub