Visual Basic - Barra de progreso

Private Sub cmd_Procesar ()

porcentaje = 100 / Numero  ' donde numero es el numero de vveces que actualizara  ejemplo 10 seran 10 aumentos y eso actualizara el pb 

while porcentaje <=100  ' o el loop que necesites

          progreso = progreso + porcentaje

          incrementaBarra (progreso)

Me.Refresh

wend

          msgbox "Proceso terminado"

'Esto es para dejar la barra y el progreso en cero.

    PB1.Value = 0 ' se inicializa la barra al terminar el proceso

    progreso = 0

End Sub

Sub incrementaBarra(progreso As Double)

PB1.Value = progreso

If progreso = 100 Then

    P = P + 1

End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim os As String = System.Environment.OSVersion.Version.Major

    On Error Resume Next

    If os = 5 Then

        Dim carpetas() As String = Directory.GetDirectories(copia)

        For Each carpeta As String In carpetas

            ListBox1.Items.Add(carpeta)

            For i As Integer = 0 To Me.ListBox1.Items.Count - 1

                Me.ListBox1.SetSelected(i, True)

            Next

            Directory.CreateDirectory(destino & "\" & Path.GetFileName(ListBox1.SelectedItem))

            Dim fso As New FileSystemObject

            fso = New FileSystemObject

            If Directory.Exists(ListBox1.SelectedItem & "\Commadri") Then

                fso.CopyFolder((ListBox1.SelectedItem & "\Commadri"), destino & "\" & Path.GetFileName(ListBox1.SelectedItem) & "\Commadri")

            End If

            If Directory.Exists(ListBox1.SelectedItem & "\Escritorio") Then

                fso.CopyFolder((ListBox1.SelectedItem & "\Escritorio"), destino & "\" & Path.GetFileName(ListBox1.SelectedItem) & "\Escritorio")

            End If

            If Directory.Exists(ListBox1.SelectedItem & "\Favoritos") Then

                fso.CopyFolder((ListBox1.SelectedItem & "\Favoritos"), destino & "\" & Path.GetFileName(ListBox1.SelectedItem) & "\Favoritos")

            End If

            fso = Nothing

        Next

        MsgBox("Copia de perfiles terminada satisfactoriamente", vbOKOnly + vbInformation, "Copia Correcta")

    Else

        MsgBox("Copia de perfiles incorrecta", vbOKOnly + vbInformation, "Copia fallida")

    End If

End Sub