Progress bars are used in a number of applications. They are easy to implement, and very useful to the user. This is a quick tutorial using the timer with the progress bar.
Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 1 If ProgressBar1.Value = 100 Then Timer1.Enabled = False End If End Sub
If you are wanting to add "Start", "Stop" and "reset" buttons, it can be done like this
Public Sub Form_Load() Command1.Caption = "Start" Command2.Caption = "Stop" Command3.Caption = "Reset" End Sub Public Sub Command1_Click() Timer1 = True End Sub Public Sub Command2_click() Timer1 = False End Sub Public Sub Command3_click() ProgressBar1.Value = 0 End Sub
Edited by: WhatIsSoftware