Dim col1 As IEnumerable(Of Integer) = {1, 5, 6, 7, 8, 9, 10, 11, 15, 80}
        Dim col2 As IEnumerable(Of Integer) = {1, 5, 6, 7, 8, 9, 10, 11, 85}
        Dim col3 As IEnumerable(Of Integer) = {1, 2, 8, 6, 9}
        Dim col4 As IEnumerable(Of Integer) = {2, 2, 3}
        Dim MAX As Integer = 10

  ' eliminar registros iguales en  " Lnumbers " lo solucione quitandolos del listxbo
    ' eliminar registros MENORES a MAX
    ' En este codigo deberia quedar un solo registro de los cuatro
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim col1 As IEnumerable(Of Integer) = {1, 5, 6, 7, 8, 9, 10, 11, 15, 80}
        Dim col2 As IEnumerable(Of Integer) = {1, 5, 6, 7, 8, 9, 10, 11, 85}
        Dim col3 As IEnumerable(Of Integer) = {1, 2, 8, 6, 9}
        Dim col4 As IEnumerable(Of Integer) = {2, 2, 3}
        Dim MAX As Integer = 10
 
 
        Dim cols As IEnumerable(Of IEnumerable(Of String)) =
            From col As IEnumerable(Of Integer) In {col1, col2, col3, col4}
            Group By String.Join("", col).AsEnumerable
            Into Group
            Select From value As Integer In Group.First.Distinct
                    Where Not (value = MAX)
                   Select value.ToString(format:="0#")
 
        ListBox1.Items.AddRange((From col As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray)
        '*****************************************preubas**********------------------------------------------------
        Dim cuenta As Integer = cols.Count()
        MsgBox(cols.Count) lleva cuatro bien
        MsgBox(col1.Count) lleva 10 numeros bien
        MsgBox(col2.Count) lleva 9 mal eliminar