Private Sub Command1_Click()
  List2.Clear
  Dim i As Integer, suchPattern As String
  suchPattern = "*" + LCase(Text1.Text) + "*"
  For i = 0 To List1.ListCount - 1
    If LCase(List1.List(i)) Like suchPattern Then
      List2.AddItem List1.List(i)
    End If
  Next i
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.