sorry I'm confusing you

VB Code:
  1. Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
  2.         Static counter As Integer = 0
  3.  
  4.         If pBar.Value < 90 Then
  5.             pBar.Value += 10
  6.         Else
  7.             pBar.Value = 10
  8.             counter += 1
  9.         End If
  10.  
  11.         If counter = 7 Then
  12.             Timer.Enabled = False
  13.             counter = 0
  14.         End If
  15.     End Sub
  16.  
  17.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  18.         Timer.Enabled = True
  19.     End Sub

try that