Duplicate ListBox entry

[jemidiah]

The loop way:

For i = 0 To List1.ListCount - 1
    If List1.List(i) = "Apple" Then
        MsgBox "Apple already entered"
    End If
Next i

You can also use SendMessage, though I forget the actual message (somebody'll most likely post it).