I see the problem, You have to check the TEXT property of each item in the list
a simple For Each loop is working for me
Public Class Form1
Private Function LVContainsText(TXT As String) As Boolean
Dim result As Boolean = False
For Each I As ListViewItem In LV.Items
If I.Text = TXT Then
result = True
End If
Next
Return result
End Function
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
If Not txtNAME.Text.Count < 1 Then
If LVContainsText(txtNAME.Text) Then
Dim DR As DialogResult = MessageBox.Show("Thie list already contains that text, Add it anyways?", "OOPS?", MessageBoxButtons.YesNo)
If DR = Windows.Forms.DialogResult.Yes Then
LV.Items.Add(txtNAME.Text)
End If
Else
LV.Items.Add(txtNAME.Text)
End If
End If
End Sub
End Class