[SBJoker]

Код таймера такой должен быть:

    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