C# / VB.NET - [VB.NET] Eliminare elementi Contigui...

Bene 2 giorni fà la prof ci ha assegnato un programma, ma ancora non so riuscito a farlo... (Pur Avendo 9)
Cioè: Eliminare due elementi uguali in un array

Quindi, dopo la visualizzazione dovrei trovare gli elementi Uguali cioè:

1 | 2 | 2 | 5 | 6 | 3 | 7 |

Dovrebbe risultare

1 | 2 | 5 | 6 | 3 | 7|

E il 2 messo in un altra ListBox...

In seguito, dovremmo trovare in Output (In una TextBox) la lunghezza del Vettore, nel caso precedente: 6

Cordiali saluti, Federico...

Ah Dimenticavo, io sono giunto qui...

Public Class Form1
    'INPUT
    Dim numero() As Short
    Dim n As Short
 

    Private Sub Btn_carica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_carica.Click
        Lst_elenco.Items.Clear()
        n = InputBox("Inserisci il numero degli elementi")
        ReDim numero(n - 1)
        For i = 0 To n - 1
            numero(i) = InputBox("Inserisci l'elemento n°" + "" + CStr(i + 1))
            Lst_elenco.Items.Add(numero(i))
        Next
    End Sub


    Private Sub Btn_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_clear.Click
        For i = 0 To n - 2
            For j = i + 1 To n - 1
                If numero(i) = numero(j) Then

                End If
            Next
        Next
        ListBox1.Items.Clear()
        For i = 0 To n - 1
            ListBox1.Items.Add(numero(i))
        Next
    End Sub
End Class

Dim arr = New () {1, 6, 2, 4, 3, 1, _
	3, 4, 2, 5, 6}

Console.WriteLine("Elementi senza ripetizioni")

Dim distinct = arr.Distinct()

For Each item As var In distinct
	Console.Write(item + ", ")
Next

Console.WriteLine()

Console.WriteLine("Elementi che non sono duplicati")
Dim equal = arr.Where(Function(item) arr.Count(Function(val) val = item) > 1)

For Each item As var In equal
	Console.Write(item + ", ")
Next

'indice su cui iterare
Dim n As Integer = 0
'vettore è l'array che devi elaborare
Dim lista_vettore As List(Of Integer) = vettore.ToList
Do Until lista_vettore.Count = 0 Or n = lista_vettore.Count
     If lista_vettore(n) = lista_ vettore(n+1) Then
          lista_vettore.RemoveAt(n)
     End If
     n += 1
Loop
TextBox1.Text = "L'array ora contiene " & lista_vettore.Count & " elementi"

Ovviamente è molto meglio quella di HeDo, ma capisco che tu non capisca (se mi passi il gioco di parole )