Refresco de la pantalla

Hola a todos.

Estoy haciendo un formulario que descarga actualizaciones de mi programa.
Para ello me conecto por Ftp y voy mostrando el tiempo restante con
PorgressBar y con un label los Bytes descargados / Totales. Actualizo

valores mediante esta simple función:

Public Sub evolucion(ByVal parcial As Long)

a.ProgressBar1.Value = CInt((parcial * 100) / tamDescarga)
a.Label1.Text = parcial & " / " & tamDescarga & "bytes"
a.Label1.Update()
a.ProgressBar1.Update()
End Sub

El problema es que mientras tengo el formulario en primer plano, funciona
perfectamente, pero cuando lo minimizo y lo restauro la ventana queda
"congelada, a pesar de que internamente se sigue descargando el archivo,
dando una imagen de que se ha quedado colgado.

¿Alguien sabe como solucionarlo?, he probado ha hacer un refresh al
formulario pero nada.

Un Saludo

Proba poniendo despues del Progressbar1.Update() la siguiente linea:

Application.DoEvents()


Saludos !


"Cecilio" escribió en el mensaje
news:
> Hola a todos.
>
> Estoy haciendo un formulario que descarga actualizaciones de mi

> Para ello me conecto por Ftp y voy mostrando el tiempo restante con
> PorgressBar y con un label los Bytes descargados / Totales. Actualizo
estos
> valores mediante esta simple función:
>
> Public Sub evolucion(ByVal parcial As Long)
>
> a.ProgressBar1.Value = CInt((parcial * 100) / tamDescarga)
> a.Label1.Text = parcial & " / " & tamDescarga & "bytes"
> a.Label1.Update()
> a.ProgressBar1.Update()
> End Sub
>
> El problema es que mientras tengo el formulario en primer plano,

> perfectamente, pero cuando lo minimizo y lo restauro la ventana queda
> "congelada, a pesar de que internamente se sigue descargando el archivo,
> dando una imagen de que se ha quedado colgado.
>
> ¿Alguien sabe como solucionarlo?, he probado ha hacer un refresh al
> formulario pero nada.
>
> Un Saludo
>
>