Mencari Data Dalam List

- 1 Textbox
- 1 Listbox
------------------------------------------------------------
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_SELECTSTRING = &H18C
------------------------------------------------------------
Private Sub Form_Load()
List1.AddItem "ramlan"
List1.AddItem "rambo"
List1.AddItem "rapih"
List1.AddItem "diki"
List1.AddItem "SENSOR"
List1.AddItem "geulis"
List1.AddItem "tidak"
List1.AddItem "rumah"
End Sub
------------------------------------------------------------
Private Sub Text1_Change()
If Text1.Text <> "" Then
SendMessage List1.hwnd, LB_SELECTSTRING, -1, Text1.Text
End If
End Sub