例
以下の例は、エミュレーター・ウィンドウ長方形の境界点を戻す方法を示します。
Dim autECLWinObj as Object
Dim ConnList as Object
Dim left
Dim top
Dim right
Dim bottom
Set autECLWinObj = CreateObject("ZIEWin.autECLWinMetrics")
Set ConnList = CreateObject("ZIEWin.autECLConnList")
' Initialize the connection
ConnList.Refresh
autECLWinObj.SetConnectionByHandle(ConnList(1).Handle)
autECLWinObj.GetWindowRect left, top, right, bottom