Search for a LINE in a LIST

[Veenhuyzen]

I makeing a sort of tool for Msn Messenger to block specefied Email-adresses in a list box.

Somebody know how to make this?

Something that looks lik this (i tell you this is wrong)

If pSourceUser.EmailAddress = List1.ListCount Then
pSourceUser.SendText bstrMsgHeader, "You been blocked", MMSGTYPE_ALL_RESULTS
End If

Thanks (sorry for my bad English)

[peet]

maybe you can use something like this:

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F
 
If SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text) <> -1 Then pSourceUser.SendText bstrMsgHeader, "You been blocked", MMSGTYPE_ALL_RESULTS