Tengo un ProgressBar llamado Progreso en un form y al dar click al boton guardar necesito que muestre eso, el progreso de guardado.
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
'En el boton Guardar:
Progreso.Value = 0
Timer1.Enabled = True
'en el Timer1 tengo:
Private Sub Timer1_Timer()
Dim largo As String
largo As Long
largo = "C:\Mstest\novedades.txt"
With Progreso ' nombre del ProgressBar
If .Value < FileLen(largo) Then
.Value = .Value + 1
Else
MsgBox "Proceso Terminado"
Timer1.Enabled = False
End If
End With
End Sub
Pero no logro mostrar la barra de progreso. Donde esta el error?.
Saludos.
