comparar dos listbox

[Migue-LXC]

hola amigos tengo un problemita, estoy haciendo un pequeño programa de tarea, me piden en un combo tengo paises, peru, brasil y argentina, cada ves que selecciono uno de ellos del combo en el list1 me carga 3 jugadores del respectivo pais, por ejemplo selecciono peru y me carga en el list1 vargas, solano y pizarro y haci en el caso de cada pais

lo que me falta es que cuando cargue denuvo no me deba apreserer ese jugador que ya esta en la list2 no debe aparecer en la list1

porfa ayudenme


les pongo el codigo :

Public Class frm5

Private Sub cbo1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo1.SelectedIndexChanged
Dim pos As Integer
pos = cbo1.SelectedIndex

Select Case pos
Case 0
lst1.Items.Clear()
lst1.Items.Add("messi")
lst1.Items.Add("tevez")
lst1.Items.Add("aguero")
Case 1
lst1.Items.Clear()
lst1.Items.Add("ronaldo")
lst1.Items.Add("kaka")
lst1.Items.Add("ronaldiño")
Case 2
lst1.Items.Clear()
lst1.Items.Add("solano")
lst1.Items.Add("vargas")
lst1.Items.Add("pizarro")
End Select

End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

If lst1.SelectedIndex <> -1 Then
lst2.Items.Add(lst1.SelectedItem)
lst1.Items.Remove(lst1.SelectedItem)
Else
MsgBox("falta seleccionar")
End If
End Sub
End Class



les agradesco su ayuda