Dim x As Integer Private Sub Timer1_Timer()If x < ProgressBar1.Max Then ProgressBar1.Value = x x = x + 5Else ProgressBar1.Value = 0 x = 0 Timer1.Enabled = FalseEnd IfEnd Sub