Exemple

L'exemple suivant montre comment définir les points de délimitation du rectangle de la fenêtre de l'émulateur.

Dim autECLWinObj as Object Dim ConnList as Object Set autECLWinObj = CreateObject("ZIEWin.autECLWinMetrics") Set ConnList = CreateObject("ZIEWin.autECLConnList") ' Initialize the connection ConnList.Refresh autECLWinObj.SetConnectionByHandle(ConnList(1).Handle) autECLWinObj.SetWindowRect 0, 0, 6081, 6081