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)
        ProgressBar1.Value = 0
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Maximum = lSearchpattern.Count
        For Each sPattern As String In lSearchpattern
            For Each fiFile As FileInfo In dPath.GetFiles(sPattern, _
              SearchOption.AllDirectories)
                ProgressBar1.Increment(1)
                If ProgressBar1.Value = 100 Then
                End If
                lFiles.Add(fiFile)
            Next
        Next
        Return lFiles
    End Function