시계예제

Public Class Form1

     ''' 작성일자 : 2008. 07. 28
    ''' 프로그램명 : 시계예제 프로그램

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        Timer1.Enabled = True
        TextBox1.Text = Now()
        TextBox2.Text = DateTime.Now
        TextBox3.Text = Format(DateTime.Now, "hh시 mm분 ss초")
    End Sub

'===========================================================================================================

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class