Copia de archivos y Progressbar

[tomuer01]

Hola...
Tengo dos consultas.
Estoy copiando archivos de un pc de la red a otro, utilizo este codigo para realizar el proceso de copiado de un archivo:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim c As Object
c = CreateObject("Scripting.FileSystemObject")
c.CopyFolder("ORIGEN", "DESTINO")
c = Nothing
Timer1.Enabled = True 'Ejecuto el proceso
End Sub

¿Como lo podria hacer para copiar tres archivos que estan en distintas rutas y pegarlos igual en distintas rutas?

La otra consulta.
Tengo una barra de progreso que mustra el proceso de copiado y utilizo este codigo:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim t As String

If barra.Value < 100 Then
barra.Value = barra.Value + 1
ElseIf barra.Value = 100 Then
Timer1.Enabled = False
t = MsgBox("Archivo Copiado", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "")
End
End If
End Sub

La barra avanza pero no con el proceso de copiado.
¿Como podria hacer que la barra avance junto con el proceso de copiado?