[Amin_Mansouri]

درود

کد:

   Private Sub Command1_Click()
        Dim i As Integer
        For i = 0 To List1.ListCount - 1
             List1.ListIndex = i
             If List1.List(i) = Text1.Text Then
                  MsgBox "Your item has been found." & i, vbInformation + vbOKOnly, "Found"
                  Exit Sub
             End If
        Next i
        MsgBox "Not found", vbExclamation + vbOKOnly, "Not found"
   End Sub