Foro de elhacker.net

 Private Sub TextBox_Leave(ByVal sender As System.Object, ByVal e As  _
System.EventArgs) Handles TextBox7.Leave, TextBox8.Leave, TextBox9.Leave
        ListBox1.Items.Add(sender.text)
    End Sub

Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
 
   Case False ' El número no está repetido en ninguna "linea"
       ' Así que colocamos el número en el ListBox
       ListBox1.Items.Add(CStr(Results(X)))
 
   Case True ' El número está repetido en alguna de las "lineas"
       ' Así que escribimos el número "máximo" en el ListBox
       ListBox1.Items.Add(CStr(maximum))
 
End Select

' Establezco un par de arrays numéricos.
Dim arr1 As Integer() = {1, 2, 3, 4}
Dim arr2 As Integer() = {5, 6, 7, 8}
 
' Instancio un ListBox con las siguientes propiedades:
Dim LB As New ListBox With
    {
        .MultiColumn = True,
        .ColumnWidth = 10,
        .Size = New Size(300, 20)
    }
 
' Lo añado al formulario.
Me.Controls.Add(LB)
 
' Añado los elementos del primer Array, al ListBox.
LB.Items.AddRange(ArrayList.Adapter(arr1).ToArray)
 
' Añado dos elements vacíos que simulen un "separador".
LB.Items.AddRange(ArrayList.Adapter({String.Empty, String.Empty}).ToArray)
 
' Añado los elementos del segundo Array, al ListBox.
LB.Items.AddRange(ArrayList.Adapter(arr2).ToArray)