Visual Basic - Como controlar la barra de Progreso

Como puedo controlar el movimiento de la barra de progreso cuando estoy haciendo una copia de archivos desde un servidor a un equipo.

Este es el ejemplo del codigo:

Private Sub Command1_Click()
Form1.ProgressBar1.Visible = True
Form1.Timer1.Enabled = True
Dim MiVar
MiVar = MsgBox("Por favor verifique que todos los usuarios esten fuera del Sistema", 64, "Copia de Archivos")
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.GetFolder("\\Serv_coromoto\shc")
a.Copy ("c:\RespVB")
MiVar = MsgBox("Terminada la Copia de Archivos", 64, "Copia de Archivos")
End Sub

Private Sub Form_Load()
Form1.ProgressBar1.Visible = False
Form1.Timer1.Interval = 1000
Form1.ProgressBar1.Max = 30
End Sub

Private Sub Timer1_Timer()
Dim vartim
vartim = 1000
Static intTime
If IsEmpty(intTime) Then intTime = 1
Form1.ProgressBar1.Value = intTime
If intTime = Form1.ProgressBar1.Max Then
Timer1.Enabled = False
Form1.ProgressBar1.Visible = False
intTime = 1
Form1.ProgressBar1.Value = Form1.ProgressBar1.Min
Else
intTime = intTime + 1
End If
End Sub

Quisiera que el movimiento fuese el real de la copia, en este momento el movimiento parece ser automatico y comiensa despues que se hace la copia de los archivos.
Que tengo que entrelazar?

Hola juan yo creo que tu no sabes mucho de Visual Basic y ese codigo parece copiado de un libro...te recomiendo hagas un cursito primero porque estas raspado en visual.Gracias...

Tendrías que usar la API CopyFileEx en lugar del objeto FileSystem, tiene un puntero a una función que es CopyProgressRoutine pero es un CALLBACK, fijate en http://www.mvps.org/vbnet/index.html?code/callback/filebackupcallback.htm que te puede servir. Pero solo funciona en Windows NT 4 o 2000.