Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dInitPath As New DirectoryInfo("D:\Test")
 
        Dim lSearchpattern As New List(Of String)
        lSearchpattern.Add("*.doc")
        lSearchpattern.Add("*.pdf")
 
        ComboBox1.Items.Clear()
        For Each fiFile As FileInfo In searchFiles(dInitPath, lSearchPattern)
            ComboBox1.Items.Add(fiFile.FullName)
        Next
    End Sub