Example

Dim autECLOIAObj as Object
 
Set autECLOIAObj = CreateObject("<dvcfobj props="textent conref-pcomm_short">&pcomm_short;.autECLOIA")
autECLOIAObj.SetConnectionByName("A")
 
if (autECLOIAObj.WaitForAppAvailable (10000)) then
msgbox "Application is available"
else
msgbox "Timeout Occurred"
end if