• Home
 · 
• Miscellaneous
 · 
• Type a string into a textbox to move any items in a listbox whose first letters match the letters i

Type a string into a textbox to move any items in a listbox whose first letters match the letters i

Type a string into a textbox to move any items in a listbox whose first letters match the letters in the textbox into a new listbox. CASE is

Rate Type a string into a textbox to move any items in a listbox whose first letters match the letters i

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

List2.Clear
Dim Step, TextLen As Integer
Dim TempText, TempList As String
TextLen = Len(Text1)
Step = 0
If TextLen = 0 Then
Else
Do While Step <= List1.ListCount - 1
TempText = UCase(Text1.Text)
TempList = UCase(List1.List(Step))
If Left(TempText, TextLen) = Left(TempList, TextLen) Then
List2.AddItem List1.List(Step)
Step = Step + 1
Else
Step = Step + 1
End If
Loop
End If
End Sub