Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
'Initialize objects
process.New1(false)
process.CreateNew("System.Diagnostics.Process" & process.System_NS)
StartInfo.New1(false)
StartInfo.Value = process.GetProperty("StartInfo")
'Usage
ShellAndWait("iexplore","www.b4x.com")
Msgbox("After Shell")
End Sub
Sub ShellAndWait(File, Arguments)
StartInfo.SetProperty("FileName",File)
StartInfo.SetProperty("Arguments",arguments)
process.RunMethod("Start")
process.RunMethod("WaitForExit")
process.RunMethod("Close")
End Sub