I have a trouble. In my experience,I used "sendmessage"to forbid inputing again with English words,and there is no trouble,but I changed into Chinese words, my computer only recongized the first chinese word. I think that the problem maybe relation about 2 bytes.

my source program
It needs one listbox,one textbox and command button.
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F
Private Sub Command1_Click()
Dim retrn As Long
Dim aa As String
aa = Text1.Text
retrn = SendMessage(List1.hWnd, LB_FINDSTRING, 0, ByVal aa)
If retrn = -1 Then
List1.AddItem Text1.Text
Else
List1.ListIndex = retrn
MsgBox "´ËÏîÖظ´,²»ÔÙÌí¼Ó"
End If
End Sub

Private Sub Form_Load()
With List1
.AddItem "ÕÅ·îÀú"
.AddItem "Àî·Ç"
.AddItem "ÎÅÏþÔ¶"
.AddItem "Áõ·ç¹â"
.AddItem "ÐíÕæÌì"
.AddItem "Íõ»áÀ¸"
End With


End Sub


use Chinese word " Îâºì", "Íõá°·Å", "Á÷Ïò"