TestEIn 2.1a2 :

- ricompilazione con VS2017.

My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 <Assembly: ComVisible(False)>
 
 'Se il progetto viene esposto a COM, il GUID seguente verrà utilizzato come ID della libreria dei tipi
-<Assembly: Guid("df909f76-3157-45be-bcd4-8f32290bca52")> 
+<Assembly: Guid("df909f76-3157-45be-bcd4-8f32290bca52")>
 
 ' Le informazioni sulla versione di un assembly sono costituite dai seguenti quattro valori:
 '
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.9.12.4")> 
-<Assembly: AssemblyFileVersion("1.9.12.4")> 
+<Assembly: AssemblyVersion("2.1.1.2")>
+<Assembly: AssemblyFileVersion("2.1.1.2")>

SelectMulti.Designer.vb

@@ -4,7 +4,7 @@ Partial Class SelectMulti
 
     'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
     <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+    Protected Overrides Sub Dispose( disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
                 components.Dispose()
@@ -49,6 +49,7 @@ Partial Class SelectMulti
       '
       Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.ListBox1.FormattingEnabled = True
+      Me.ListBox1.HorizontalScrollbar = True
       Me.ListBox1.Location = New System.Drawing.Point(1, 1)
       Me.ListBox1.Margin = New System.Windows.Forms.Padding(1)
       Me.ListBox1.Name = "ListBox1"

SelectMulti.vb

@@ -55,12 +55,12 @@ Public Class SelectMulti
       Me.Close()
    End Sub
 
-   Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
+   Private Sub ListBox1_DoubleClick( sender As Object,  e As System.EventArgs) Handles ListBox1.DoubleClick
       Me.DialogResult = System.Windows.Forms.DialogResult.OK
       Me.Close()
    End Sub
 
-   Private Sub ListBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
+   Private Sub ListBox1_KeyDown( sender As System.Object,  e As KeyEventArgs) Handles Me.KeyDown
       If e.KeyData = Keys.Escape Then
          Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
          Me.Close()
@@ -79,7 +79,7 @@ Public Class SelectMulti
       Public m_sTitle As String
       Public m_nId As Integer
 
-      Public Sub New(ByVal sTitle As String, ByVal nId As Integer)
+      Public Sub New( sTitle As String,  nId As Integer)
          Me.m_sTitle = sTitle
          Me.m_nId = nId
       End Sub