Sub dd_Progress(Progress As Long, Total As Long)
ProgressBar1.Progress = Progress / Total * 100
Log(NumberFormat(Progress / 1024000, 0, 0))
progreso_Actual=Progress / Total * 100
progreso_total=(NumberFormat(Total /1024000 , 0, 0))
Label1.Text = NumberFormat(Progress / 1024000, 0, 0) & "MB / " & _
NumberFormat(Total /1024000 , 0, 0) & "MB"
aux=Label1.Text
aux_total=Total
End Sub