Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dInitPath As DirectoryInfo
        Dim lSearchpattern As List(Of String)
        Dim lFiles As List(Of FileInfo)
        lSearchpattern = New List(Of String)
        lSearchpattern.Add("*.gif")
        lSearchpattern.Add("*.jpg")
        dInitPath = New DirectoryInfo( _
          My.Computer.FileSystem.SpecialDirectories.MyPictures)
        lFiles = searchFiles(dInitPath, lSearchpattern)
        ComboBox1.Items.Clear()
        For Each fiFile As FileInfo In lFiles
            ComboBox1.Items.Add(fiFile.FullName)
        Next
    End Sub
 
    Private Function searchFiles(ByVal dPath As DirectoryInfo, ByVal _
      lSearchpattern As List(Of String)) As List(Of FileInfo)
        Dim lFiles As List(Of FileInfo) = New List(Of FileInfo)
        For Each sPattern As String In lSearchpattern
            For Each fiFile As FileInfo In dPath.GetFiles(sPattern)
                lFiles.Add(fiFile)
            Next
            For Each diDir As DirectoryInfo In dPath.GetDirectories()
                lFiles.AddRange(searchFiles(diDir, lSearchpattern))
            Next
        Next
        Return lFiles
    End Function
End Class

    Private Function searchFiles(ByVal dPath As DirectoryInfo, ByVal _
      lSearchpattern As List(Of String)) As List(Of FileInfo)
        Dim lFiles As List(Of FileInfo) = New List(Of FileInfo)
        For Each sPattern As String In lSearchpattern
            For Each fiFile As FileInfo In dPath.GetFiles(sPattern, _
              SearchOption.AllDirectories)
                lFiles.Add(fiFile)
            Next
        Next
        Return lFiles
    End Function