[silverlight]

كود :

       Dim arabCountryList As New List(Of String) From {"Egypt", "Saudi Arabia", "Yemen", "Jordan", "Korea"}
       Dim BlackCountryList As New List(Of String) From {"Korea", "Japan"}
       Dim difference As IEnumerable(Of String) = arabCountryList.Except(BlackCountryList)

       ' example to see the non black liste contries
       For Each name As String In difference
           Me.ListBox1.Items.Add(name)
       Next