TestEIn :

- gestione selezione punto e drag.

SelectMulti.vb

@@ -9,7 +9,7 @@ Public Class SelectMulti
    Private Sub SelectMulti_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       ListBox1.BeginUpdate()
       'Inserisco le entità nel mirino
-      Dim nId = EgtGetFirstSelectedObj()
+      Dim nId = EgtGetFirstObjInSelWin()
       While nId <> GDB_ID_NULL
          Dim sTitle As String = String.Empty
          EgtGetTitle(nId, sTitle)
@@ -19,7 +19,7 @@ Public Class SelectMulti
          sTitle += " (" & nId & ")"
          Dim smItem As New SelMulItem(sTitle, nId)
          ListBox1.Items.Add(smItem)
-         nId = EgtGetNextSelectedObj()
+         nId = EgtGetNextObjInSelWin()
       End While
       'Inserisco None per non selezionare alcunchè
       Dim smNone As New SelMulItem("None", GDB_ID_NULL)