Foro de elhacker.net

Dim Resultodo1 As IEnumerable(Of Integer) =
            (
                From Value As Integer
                  In (Result1.Concat(Result2)).Distinct Where (Value <= MAX))
 
 
        ListBox1.Items.AddRange(Resultodo1.Cast(Of Object).ToArray) 

'For Index As Integer = 0 To (Result1.Count - 1)
 
            Select Case Result1(Index)
 
                Case Is = 0 ' El valor es 0.
                    ' Hacer algo con el número 0 aquí.
                    ' Result1(Index) = Not 0
 
                Case Is < 0 ' El valor es negativo.
                    ' Lo convierto a positivo.
                    Result1(Index) = Math.Abs(Result1(Index))
 
            End Select '/ Result1(Index)  

• Recorrer lista o arreglo con un for.
• Dentro del for evaluar si el número actual es neutro o negativo.
• Si lo es, eliminar de la lista.
  
  Si usas arrays es posible que no puedas eliminar una posición (realmente desconozco esto en VB.NET) como en otros lenguajes; si es así, puedes trabajar con un tipo de dato que te permita coleccionar objetos y eliminarlos también (se redimensiona automáticamente) como Listas.
  
  Salu2.

Dim List As New List(Of String)
           For Each numeros As ListViewItem In ListView1.Items
            If CDbl(numeros.Text) > 0 Then
                List.Add(numeros.Text)
            End If
          Next
        ListView1.Items.Clear()
        For Each Data As String In List
            ListView1.Items.Add(Data)
        Next
 

...Where (Value <= max AndAlso Value > 0)

Dim values1 As IEnumerable(Of Integer) = {-2, -1, 0, 1, 2}
Dim values2 As IEnumerable(Of Integer) = {-20, -10, 0, 10, 20}
Dim max As Integer = 10
 
Dim result As IEnumerable(Of Integer) =
    (From Value As Integer In (values1.Concat(values2)).Distinct
     Where (Value <= max AndAlso Value > 0))
 
ListBox1.Items.AddRange(result.Cast(Of Object).ToArray)