VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} progressForm 
   Caption         =   "Working..."
   ClientHeight    =   975
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   3525
   OleObjectBlob   =   "ProgressForm.frx":0000
   StartUpPosition =   1  'Centrar en propietario
End
Attribute VB_Name = "ProgressForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Código para ProgressForm
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
    Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)
End Sub

Public Sub UpdateProgress(current As Long, total As Long)
    lblProgress.Caption = "Procesando fila " & current & " de " & total
    ' Si estás usando una ProgressBar real, descomenta la siguiente línea:
    ' ProgressBar1.Value = (current / total) * 100
    DoEvents
End Sub