ProgressBar2.Increment(1)
If ProgressBar2.Value = ProgressBar2.Maximum Then
ProgressBar2.Value = 0
Label1.Text = "Idle"
Timer1.Stop()
Else
Label1.Text = "Working"
End If
End Sub