Exemple

Dim PgSet as Object Dim ConnList as Object Set PgSet = CreateObject("ZIEWin.autECLPageSettings") Set ConnList = CreateObject("ZIEWin.autECLConnList") ' Initialize the connection ConnList.Refresh PgSet.SetConnectionByHandle(ConnList(1).Handle) ' This code segment checks to see if communications are connected ' for A. The results are sent to a text box called ' CommConn. If PgSet.CommStarted = False Then CommConn.Text = "No" Else CommConn.Text = "Yes" End If