vbnet timer tutorial
Senin, 01 Januari 2018
Edit
Public Class Form1
Private iTimer As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
iTimer = iTimer + 1
Label1.Text = iTimer
Label1.BackColor = Color.White
Label1.Text = iTimer
Label1.BackColor = Color.White
If iTimer = 3 Then
Label1.Text = "HAPPY NEW YEAR...2018"
Label1.BackColor = Color.Yellow
iTimer = 0
End If
Label1.Text = "HAPPY NEW YEAR...2018"
Label1.BackColor = Color.Yellow
iTimer = 0
End If
End Sub
End Class
