• Home
 · 
• Windows System Services
 · 
• Time and date

Time and date

Time and date

Rate Time and date

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    'Declarations
    'add a timer 2 labels and a button
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Dim time As Integer
        Label1.Text = Format(time, "hh:mm:ss")
        Label1.Text = TimeString
        Label2.Text = DateString
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim time As Integer
        Label1.Text = Format(time, "hh:mm:ss")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim time As Integer
        Label1.Text = Format(time, "hh:mm:ss")
        Label1.Text = TimeString
        Label2.Text = DateString
    End Sub
End Class