Hola Luis

Para convertir un número a positivo puedes usar el método Math.Abs()
Y lo que quieres hacer cuando un número es '0' no está del todo claro.

Te sugiero que apliques tus propias reglas iterando los elementos del Array, por ejemplo:

        Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.
 
        Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}
 
        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)
 
 
        Next Index
 
        Result1 = Result1.Distinct().ToArray
        Array.Sort(Result1)

saludos

que no se muestren ceros he probado el codigo y funciona bien con los negativos pero cuando pongo

 Result1(Index) = Not 0 <------ regresan los negativos

Luis

Hola

lo que quiero es que no se muestren los ceros


Luis