1. תוסיף תיבת טקסט מעל ל listbox
קרא לה נניח txtItemToFind 2. בהצהרת המשתנים תוסיף : Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Const LB_FINDSTRING = &H18F 3. באירוע change של תיבת הטקסט שיהיה הקוד הבא: Private Sub txtItemToFind_Change() List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(txtItemToFind.Text)) End Sub ואז בכל פעם שתתחיל לכתוב טקסט בתיבה , יופיע לך סימון של טקסט ב listbox שמתחיל במה שכתבת בתיבה מקווה שלזאת היתה הכוונה שלמה
