Progressbar

[DIGGERJHS]

HOLA A TODOS EL TEMA ES SIMPLE PARA USTEDES PERO NO PARA MI, HACE MUY POCO QUE USO VB6 Y ESTOY ATASCADO INTENTADO PONER UN PROGRESSBAR A ESTO.

Private Sub PATCH_Click()

run.Enabled = False
Dim fs As Object
L2sys = "c:\archivos de programa\lineage ii"

If serverlist.ListIndex = 0 Then



Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\dragon\*.*", L2sys, True


ACTIVE.Caption = "DRAGON"
run.Enabled = True
End If


If serverlist.ListIndex = 4 Then


Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\ANTHARAS\*.*", L2sys, True

ACTIVE.Caption = "ANTHARAS"
run.Enabled = True
End If

If serverlist.ListIndex = 1 Then


Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\ADDICTION\*.*", L2sys, True

ACTIVE.Caption = "ADDICTION"
run.Enabled = True
End If

If serverlist.ListIndex = 2 Then


Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\EXTREME\*.*", L2sys, True

ACTIVE.Caption = "EXTREME"
run.Enabled = True
End If

If serverlist.ListIndex = 3 Then


Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\BAIRES\*.*", L2sys, True

ACTIVE.Caption = "BAIRES"
run.Enabled = True
End If

End Sub

COMO VERAN ESTOY USANDO LA ORDEN COPYFOLDER LA CUAL CASI NO CONOSCO Y NO SE COMO DARLE UN VALOR AL PROGRESS QUE CONCUERDE CON EL PROCESO REAL DE COPIA.