PROGRESSBAR E REGISTRO DE OCX, DLL, E MUITO MAIS

  
Você deverá copiar byte a byte e a cada byte copiado você atualiza a ProgressBar. Abaixo segue uma função que realiza exatamente isto:

Function CopyFile(Src As String, Dst As String, MeuProgressBar As ProgressBar) As Single
    Static Buf$
    Dim BTest!, FSize!
    Dim Chunk%, F1%, F2%
    Const BUFSIZE = 1024
    If Len(Dir(Dst)) Then
       Response = MsgBox(Dst + Chr(10) + Chr(10) + [Ô]File already exists. Do you want to overwrite it?[Ô], vbYesNo + vbQuestion)
       If Response = vbNo Then
          Exit Function
       Else
          Kill Dst
       End If
    End If
    On Error GoTo FileCopyError
    F1 = FreeFile
    Open Src For Binary As F1
    F2 = FreeFile
    Open Dst For Binary As F2
    FSize = LOF(F1)
    BTest = FSize - LOF(F2)
    Do
    If BTest < BUFSIZE Then
       Chunk = BTest
    Else
       Chunk = BUFSIZE
    End If
    Buf = String(Chunk, [Ô] [Ô])
    Get F1, , Buf
    Put F2, , Buf
    BTest = FSize - LOF(F2)
    MeuProgressBar.Value = (100 - Int(100 * BTest / FSize))
    Loop Until BTest = 0
    Close F1
    Close F2
    CopyFile = FSize
    MeuProgressBar.Value = 0
    Exit Function
FileCopyError:
    MsgBox [Ô]Copy Error!, Please try again...[Ô] [ô]display message box with error
    Close F1
    Close F2
    Exit Function
End Function

Para chamar esta função você deverá passar como parâmetros o arquivo de origem, o arquivo de destino e o nome do ProgressBar, como no exemplo abaixo:

    If CopyFile(txtArquivoOrigem, txtArquivoDestino, ProgressBar1) > 0 Then
        MsgBox [Ô]Arquivo copiado com sucesso![Ô]
    End If