¿Como Programar una progressbar para archivos?

[josiko12]

Vereis me gustaria saber como podria programar una progressbar en VB 2013
para que al tranferir archivos la barra se valla llenando como lo haria un convertidor de formato o windows cuando pasas varios archivos bueno eso seria todo espero que me ayudeis en lo que podais ya que soy un iniciado en esto de la programacion.

P.D Se programar la progressbar con un timer y dos botones uno para iniciar y otro para parar.

[yree]

Código [Seleccionar] Expandir

Private Sub Command1_Click()


'Le establecemos un valor para el máximo
ProgressBar1.Max = 50500

    For i = 0 To ProgressBar1.Max
   
        ' Valor actual del Progressbar
        ProgressBar1.Value = i
       
        ' Visualizamos el porcentaje en el Label
        Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"
       
       
        DoEvents

    Next

End Sub

Saludos.