Скачать или смотреть #VBcode

Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Start()
Timer1.Interval = 1000
If Label1.Text = 5 Then
Label1.ForeColor = Color.Red

Label1.Text = Val(Label1.Text) - 1
ElseIf Label1.Text = 0 Then
Label1.ForeColor = Color.Red
Timer1.Enabled = False

MsgBox("Times up!")
Else
Label1.Text = Val(Label1.Text) - 1
End If
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Timer1.Enabled = True Then
Timer1.Start()
Else
Label1.Text = 10
Timer1.Start()

End If
End Sub
End Class

Please Hit the subscribe button thank you

#VB #Timer #Countdown #VisualBasic