Я не могу удалить дубликаты из списка

Question

Я уже несколько дней пытаюсь сделать последнюю часть своей домашней работы, и я просто сыт по горло.Для моего задания мне нужно взять элементы из одного списка и поместить их в другой отсортированный список, что я уже сделал.Проблема в том, что для второй части мне нужно избавиться от дубликатов, и я не могу этого сделать.Может кто-нибудь, пожалуйста, помогите мне?Я только до петель.Вот код ниже:

'Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
    Dim Duplicate As String = lstInitial.Text
    Dim counter As Integer = 0

    lstFinal.Items.Clear()
    lstFinal.Sorted = True

    For i As Integer = 0 To (lstInitial.Items.Count - 1)
        lstFinal.Items.Add(lstInitial.Items(i))

    Next

    For n As Integer = 0 To (lstFinal.Items.Count - 1)
        lstFinal.Items.Remove(n)
    Next
End Sub`

Answer 1

Я должен сказать, что ваш репетитор не показывает вам хорошую практику для реального мира.Как правило, лучше проверять наличие дубликатов, прежде чем добавлять информацию в окончательный список.

Таким образом, код для добавления данных на самом деле должен быть

For i As Integer = 0 To lstInitial.Items.Count - 1
    If Not lstFinal.Items.Contains(lstInitial.Items(i)) Then
        lstFinal.Items.Add(lstInitial.Items(i))
    End If
Next

Да, вам не нужны скобки вокруг параметра конечной точки цикла