Visual Basic+Timer

[Leonidas]

Помогите ! Есть следующий код:

Dim n As Integer

Private Sub Form_load()
n = 0
End Sub

Private Sub Timer1_Timer()
n = n + 1
ProgressBar1.Value = n
Label1.Caption = ProgressBar1.Value
If n = 5 Then
Form1.Show
Form2.Hide
n = 0
ProgressBar1.Value = 0
End If
End Sub

Но при каждой последующей загрузке Form2 ProgressBar1.Value
иногда равна "2", иногда "3" , но очень редко *желаемому "0".

Где ошибка? Помогите!


Исправлено: Prisoner, 0:22 29-05-2004

[Vlad Drakula]

Leonidas
первое:
меня очень смущает то что у тебя вункции не принимают никаких параметров, но это мелочь.

а ты таймер останавливаешь?
если нет то он продолжает дальше менять n что ты и наблюдаешь!

[Leonidas]

Я и сам понимаю, что надо остановить таймер.Но как и где??

[Vlad Drakula]

Leonidas
скорее всего так:

Timer1.Enabled = false;

[Guest]

Пишешь строку 'Timer1.Enabled = false' после строки 'ProgressBar1.Value = 0'