急救！！！！急救！！！！急救！！！！急救！！！！

Question

大兄：
    你们好，
我现在有一份很重要的作业要在 明天八点钟交请大家帮我解决一下。就是用VB设计一个时钟。（要有时，分，秒指钟）急救！！！！急救！！！！急救！！！！急救！！！！

Answer 1

添加一个DTPicker(日期控件)dtpDate
添加一个DTPicker(时间控件)dtpTime
添加一个时钟控件tmrMain,Interval =500,Enable=TruePrivate Sub tmrMain_Timer()
    If dtpDate.Value <> Date Then dtpDate.Value = Date
    If dtpTime.Value <> Time Then dtpTime.Value = Time
End Sub

Answer 2

添加一个TIMER控件，一个LABEL控件
所有代码如下：
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Label1.Caption = Date & "  " & Time()End SubPrivate Sub Timer1_Timer()
Label1.Caption = Date & "  " & Time()
End Sub