VB.Net Progress Bar

try set the Progress Bar's Style to Marquee, like:

ProgressBar1.Style = ProgressBarStyle.Marquee
        ProgressBar1.MarqueeAnimationSpeed = 30

How would I make it run though? I have the following code to do a search. While the search ir running i would like the progress bar to run as well? Can this be done?

    Private Sub SearchForFiles(ByVal StartDir As String)
        Dim DirPath As String = Path.GetDirectoryName(StartDir)
        Dim FilePattern As String = Path.GetFileName(StartDir)
        FilePattern = "*" & FilePattern & "*"
        Dim TotalFiles As Integer = 0
        lstResults.Items.Clear()
        If Directory.Exists(DirPath) Then
            Dim di As New DirectoryInfo(DirPath)
            Dim fi() As FileInfo = di.GetFiles(FilePattern, SearchOption.AllDirectories)
            For Each f As FileInfo In fi
                lstResults.Items.Add(f.FullName)
                TotalFiles += 1
            Next
        Else
            lstResults.Items.Add("Invalid Start Directory")
        End If
        lstResults.Items.Add("Total Files = " & TotalFiles.ToString())
    End Sub

Im sorry to screw you around my code has changed? Could you tell me how to do it for my new code? Or shall I open a new question?

I think you should open another question, but anyway what happened to your code??????