Problem with DateTime.Now.ToString

[dunfiddlin]

What's with all that code?

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.Now.ToString("ddd")
End Sub