Segundero en un Label para Visual Basic 2005

Evento de un timer (Timer1) que inicia un segundero en una etiqueta (tiempo) con una variable tipo Date (segundero)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim segundero As Date

segundero = segundero.AddSeconds(1)
tiempo.Text = segundero

End Sub

El timer tiene las propiedades:

• Enable = True (Para que inicie cuando se ejecute el programa)
  
• Intervall = 1000 (Para que haga la accion cada 1 segundo)