[3booody]

كود :

For Each st As String In IO.File.ReadAllLines("C:\file.txt")
            If ListView1.Items.Count = 0 Then
                ListView1.Items.Add(st)
            Else
                Dim lst2 As ListViewItem = ListView1.FindItemWithText(st)
                If lst2 Is Nothing Then
                    ListView1.Items.Add(st)
                End If
            End If
        Next