Option Explicit
Dim i As Integer
Private Sub Form_Load()
  For i = 0 To frm_audio.File1.ListCount - 1
 
        List1.AddItem frm_audio.File1.List(i)
        Next i
  Text1.Text = ""
End Sub
 
Private Sub List2_Click()
frm_audio.MediaPlayer1.Stop
frm_audio.MediaPlayer1.FileName =  'Was soll ich hier als gültigen Filename 
' angeben?
frm_audio.MediaPlayer1.Play
End Sub
 
Private Sub Text1_Change()
  Dim sSuchText As String
 
 
  List2.Clear
 
  sSuchText = Text1.Text
  If sSuchText = "" Then Exit Sub
 
  If Left(sSuchText, 1) = "*" Then
    sSuchText = Right(sSuchText, Len(sSuchText) - 1)
    For i = 0 To List1.ListCount - 1
      If InStr(1, List1.List(i), sSuchText, 1) <> 0 Then
        List2.AddItem List1.List(i)
      End If
    Next i
 
  Else
    For i = 0 To List1.ListCount - 1
      If UCase(sSuchText) = _
          UCase(Left(List1.List(i), Len(sSuchText))) Then
        List2.AddItem List1.List(i)
      End If
    Next i
  End If
End Sub