Создание таймера

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Label3.Text = Label3.Text - 1 ' секунды
        If Label3.Text = 0 Then
            If Label2.Text = 0 And Label1.Text = 0 Then
                Timer1.Stop()
            Else
                Label3.Text = 59
                Label2.Text = Label2.Text - 1 ' минуты
                If Label2.Text = 0 Then
                    If Label1.Text = 0 And Label3.Text Then
                        Timer1.Stop()
                    Else
                        Label2.Text = 59
                        Label1.Text = Label1.Text - 1 ' Часы
                    End If
                End If
            End If
        End If
    End Sub

Label1.Text = DateAndTime.Now

 Dim date1 As DateTime = New DateTime(2010, 6, 1, 4, 59, 59, DateTimeKind.Local)
         Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            date1 = date1.AddSeconds(-1)
            label1.Text = date1.ToString("mm:ss")
        End Sub