Код таймера такой должен быть:
Private Sub Timer1_Timer)
If ProgressBar1.Value < ProgressBar1.MaxThen
ProgressBar1.Value = ProgressBar1.Value +1
End If
If ProgressBar1.Value >= ProgressBar1.MaxThen
'бладж!!! Тут вделаеш то что тебе надо!!!
End If
End Sub