การใช้ Timer แสดงวัน:ชั่วโมง:นาที:วินาที แบบนับถอยหลัง

1. วาง Timer ในฟอร์ม กำหนด Interval: 1000 และ Enabled: True

2. double-click บน Timer1 เขียนโค้ดใน Timer1_Tick ตามตัวอย่างนี้

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 If (Now >= #2/14/2008#) Then
     Timer1.Enabled = False ' --- no more ticks.
     Me.Text = "Happy Valentine Day!"
 Else
     Dim sb As New System.Text.StringBuilder()
     Dim ts As TimeSpan = #2/14/2008# - Now
     If (ts.Days > 0) Then sb.AppendFormat("{0} วัน ", ts.Days)
     If (ts.Hours > 0) Then sb.AppendFormat("{0} ช.ม. ", ts.Hours)
     If (ts.Minutes > 0) Then sb.AppendFormat("{0} นาที ", ts.Minutes)
     If (ts.Seconds > 0) Then sb.AppendFormat("{0} วินาที ", ts.Seconds)

     Me.Text = sb.ToString()
 End If
End Sub