Veeam is happy to provide a FREE NFR server license to certified engineers, trainers, and bloggers. It allows for the non‑production use of Veeam Agent for Microsoft Windows. This license is valid for five workstations and two servers.
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
Join the community of 500,000 technology professionals and ask your questions.