Ayuda con el Progressbar

[aaeq12]

Me han dejado una tarea en computación y necesito hacer un progressbar pero que avanze sólo hasta una parte.

Por ejemplo que sólo avanze hasta el 51% en vez de que cargue completamente ( 100 % )

Mi código :

Private Sub Command1_Click()
For i = 0 To ProgressBar1.Max
ProgressBar1.Value = i
Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"
DoEvents
Next
End Sub

__________________________________________________ _______________

Y otro es, si se puede es que cuando cargue lo haga con decimales.....

[marcopoloaz06]

hola,
no se mucho
pero podrías poner

For i = 0 To ProgressBar1.Max/2

saludos
:]

[Avellaneda]

Hola, y para mostrar en el Label el progreso con decimales (p.e. con 2):

Label1 = FormatNumber((i * 100) / ProgressBar1.Max, 2) & " %"

[aaeq12]

Gracias , todo ha salido bn...

Ahora sólo me falta que la progresbar demore cierto tiempo en avanzar. Espero que me puedan ayudar

[Jhonnyf]

Iniciado por aaeq12

Gracias , todo ha salido bn...

Ahora sólo me falta que la progresbar demore cierto tiempo en avanzar. Espero que me puedan ayudar

no se con que intension quieres hacer eso, pero poniendo tu codigo en un TIMER puedes hacerlo

recuerda que en el Intervalo 1000 = 1 segundo