Etiket: <span>SearchableListbox</span>

  Private Sub TextBox1_Change() Dim strText As String Dim i As Long Me.TextBox1.Text = UCase(Me.TextBox1.Text) strText = Me.TextBox1.Text With Me.ListBox1 For i = 0 To .ListCount – 1 If UCase(Left$(.List(i),…