Public Class Form1
 
    Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      FileListBox1.SelectedIndexChanged
        Dim myFileListBox
        myFileListBox = 0
        myFileListBox.Pattern = "*.pdf"
        myFileListBox.Path = "C:\Users\Benny\Documents\Eigene eBooks\Studium\"
    End Sub
 
End Class

 
FileListBox1.Pattern = "*.pdf"
FileListBox1.Path = "C:\Users\Benny\Documents\Eigene eBooks\Studium\"