Mostrar mensaje al ejecutar FileCopy

[ci2000]

Hola, en un botón hice que desde vb se copie un archivo de una carpeta a otra. El archivo a copiar es grande, por lo tanto el proceso de copia demora y el problema que se me presentó es que quiero mostrar un mensaje "Copiando...", pero no logro verlo. Lo que hace el programa es mostrar el label en blanco y da la impresión que se colgó.

Código:

Private Sub Command1_Click()
  DoEvents
  Label1 = "Copiando..."
  FileCopy "C:\mscomm\Centralita.mdb", "R:\Centralita.mdb"
  Label1 = "Copia realizada"
End Sub

Al finalizar se ve correctamente "Copia realizada".

También se me había ocurrido colocar un Progressbarr, pero no sé cómo hacerlo.

Gracias desde yá por las respuestas.
Saludos

[Insomnia]

Hola

Creo que solo tienes que cambiar de sitio el DoEvents, tienes que ponerlo después de Label1 = "Copiando..."

--Saludos--

[culd]

Iniciado por Insomnia

Hola

Creo que solo tienes que cambiar de sitio el DoEvents, tienes que ponerlo después de Label1 = "Copiando..."

--Saludos--

Exactamente, y mejor si le pones un label.refresh (por las dudas)