استفاده از ProgressBar

[parsdarab]

من می خوام کد زیر رو با پروسس بار نمایش داده بشه

Public Sub ScanFolder(ByVal folderSpec As String, ByRef currentNode As TreeNode)

        Dim thisfolder As String

        Dim allfolder() As String

        allfolder = IO.Directory.GetDirectories(folderSpec)

        For Each thisfolder In allfolder

            Dim Nd As TreeNode

            Nd = New TreeNode(IO.Path.GetFileName(thisfolder))

            currentNode.Nodes.Add(Nd)

            folderSpec = thisfolder

            ScanFolder(folderSpec, Nd)

            'Me.Refresh()

        Next

    End Sub