Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Private Sub txtSearch_Change() Dim strText As String Dim i As Long strText = LCase(txtSearch.Text) With ListBox1 For i = 0 To .ListCount - 1 If LCase(Left$(.List(i), Len(strText))) = strText Then Exit For Next i If i = .ListCount Then ' No matching item was found, select nothing .ListIndex = -1 Else ' A match was found, select it .ListIndex = i End If End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.