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.....