|
Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Format(Now, "mmmm") Label2.Text = Format(Now, "dd") Label3.Text = Format(Now, "yyyy") Label4.Text = Format(Now, "dddd") Label5.Text = Format(Now, "hh:mm:ss") End Sub End Class |