Exemple
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)