Visual Basic - MOSTRAR PORCENTAJE DE CARGA DE UNA FORM

HOLA
PODRIAN AYUDARME PORFAVOR CON UN EJEMPLO DE COMO PUEDO MOSTRAR UNA BARRITA QUE MUESTRE EL PORCIENTO QUE VA DE CARGA D EUNA FORM, PUES MIS APLICACIONES ESTAN PESADAS Y SE VE MUY FEO EL SILENCIO QUE SE TARDA EN CARGAR UNA FORM, QUISIERA ADORNALA MOSTRANDO MIENTRAS SE CARGA UNA BARRITA QUE MUESTRE EL PORCIENTO, PERO QUE A LA VEZ NO HAGA LA CARGA MAS LENTA.
DE ANTEMANO MUCHAS GRACIAS!!!

Hola Angela.................
Utiliza un ProgressBar1 y pones este evento:
Private Sub BarProg4000(Valor%)
On Error Resume Next
Select Case Valor%
Case 0
EXCT2010.StatusBar(0).FloodType = 1
EXCT2010.StatusBar(0).FloodPercent = 0
Case 100
EXCT2010.StatusBar(0).FloodPercent = 0
DoEvents
EXCT2010.StatusBar(0).FloodType = 0
Case Else
EXCT2010.StatusBar(0).FloodPercent = Valor%
End Select
' DoEvents
End Sub

luego en codigo cuando este procesando la info, por ejemplo guardando mandas lamar Call BarProg4000(0) ese evento y le mandas un valor segurn el avance que tu quieras, es de 0 a 100.
Ejemo.

Call BarProg4000(0)
Call BarProg4000(5)
GUARDANDO
Call BarProg4000(10)
Call BarProg4000(20)

Hola Angela.................
Utiliza un ProgressBar1 y pones este evento:

Private Sub BarProg4000(Valor%)
On Error Resume Next
Select Case Valor%
Case 0
EXCT2010.StatusBar(0).FloodType = 1
EXCT2010.StatusBar(0).FloodPercent = 0
Case 100
EXCT2010.StatusBar(0).FloodPercent = 0
DoEvents
EXCT2010.StatusBar(0).FloodType = 0
Case Else
EXCT2010.StatusBar(0).FloodPercent = Valor%
End Select
' DoEvents
End Sub

luego en codigo cuando este procesando la info, por ejemplo guardando mandas lamar Call BarProg4000(0) ese evento y le mandas un valor segurn el avance que tu quieras, es de 0 a 100.
Ejemo.

Call BarProg4000(0)
Call BarProg4000(5)

GUARDANDO

Call BarProg4000(10)
Call BarProg4000(20)

ACUALIZANDO

etc, etc, espero que te sirva, Saludos.

Gracias!!!!! Manuel
DIOS te bendiga

Disculpa tengo el vb5, donde encuentro el control de la barra de progreso?
Gracias!!!