Fecha y hora VB.NET

Muestra el resultado en etiqueta label

En el formulario:

• 2 label
• 1 Timer: en la propiedad -> Enabled: True, Interval: 1000 Codigo:

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Label1.Text = TimeOfDay

        Label2.Text = DateString

    End Sub