Example
Dim autECLPSObj as Object
Set autECLPSObj = CreateObject ("ZIEWin.autECLPS")
autECLPSObj.SetConnectionByName ("A")
' Wait for 10 seconds
autECLPSObj.Wait(10000)
Dim autECLPSObj as Object
Set autECLPSObj = CreateObject ("ZIEWin.autECLPS")
autECLPSObj.SetConnectionByName ("A")
' Wait for 10 seconds
autECLPSObj.Wait(10000)