here are the sripts:
the code under public class form 1:
Dim timersecond As Integer
the start button code:
Timer1.Start()
the stop button code:
timer1.stop()
the reset button code:
Timer1.Stop()
ProgressBar1.Value = ProgressBar1.Minimum
the timer1 code:
timersecond = (Val(ProgressBar1.Maximum) / Val(TextBox1.Text))
If (ProgressBar1.Value = ProgressBar1.Maximum) Then
Timer1.Stop()
Else
ProgressBar1.Increment(timersecond)