vb ¿Por qué el cronómetro sigue funcionando?

a = a 1

Else

Form1.Timer1.Enabled = False

Finalizar si

End Sub

Aquí, a es una variable local que no está disponible después de cada final de la suboperación y debe redefinirse cada vez que se ingresa el temporizador. Después de eso, redefinirá la variable a para que a siempre sea = 0, por lo que nunca entrará en else y debería verse así: dim?a?as?long

Private?Sub?Command1_Click ()

Form1.Timer1.Enabled?=?True

Fin?Sub

Privado?Sub?Form_Load()

Form1 .Label1 .FontSize?=?16

a?=?0

Fin?Sub

Privado?Sub?Timer1_Timer ()

timer1 .enable=false?Una vez que el cronómetro entre, deténgalo inmediatamente

If?a?lt;?5?Then

Dim?b?As?New?Form2

b.Label1.FontSize?=?50

b.Label2.FontSize?=?Label2.FontSize?=?25

b.Show

a?=?a? ?1

timer1.enable=true 'Habilitar el temporizador cuando sea necesario

Fin?Si

Fin?Sub