Example

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