thanks :D
thanks to one person, i chenged:
Dim ile As Integer
Dim k As Long
UserForm1.Caption = "Attenzione: installazione in corso."
For ile = 0 To 1000
UserForm1.Repaint
'delay
For k = 1 To 10000000
Next k
ProgressBar1.Value = ile
Label1 = Int(ile / 10) & " %"...
I simply make this:
created for now microsoft office progressbar6
than created comand button and put this code
Dim x As Long
Dim y As Long
Dim z As Long
y = 10
ProgressBar1.Value = 0
For x = 1 To 10
z = x * y
For s = 0 To 1000
Next s
ProgressBar1.Value = z
Next x
this worked
now, what to do...
decided to write here for a help
I need to create simulazione of instalation program to burn CD (As nero)
I need to create 2 progress bar
4 labels
1 pulsant button (command)
and join them in this way:
1. ulsant button has to move progress bars one from 0-1000 second from 1000-0
2. EWvery...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.