Progressbar para un bakup del registro

[50l3r]

quisiera hacer una progressbar para un bakup del registro

la funcion es esta:

Código vb:

If MsgBox("¿Esta seguro de querer realizar un backup del registro?", vbQuestion + vbYesNo, "Advertencia") = vbYes Then
        
        Me.MousePointer = vbHourglass
 
        If Len(Dir(Environ$("Homedrive") & "\backup", vbDirectory)) = 0 Then MkDir (Environ$("Homedrive") & "\backup")
        Open Environ$("Homedrive") & "\backup\backup.reg" For Output As #1
        Close #1
        
        Shell "regedit /e " & Chr(34) & Environ$("Homedrive") & "\backup\backup.reg" & Chr(34)
        
        Me.MousePointer = vbNormal
        
    End If