求Vb编写一个简单的倒计时，VB作业很急

效果这样：

代码：

Private down_time As Integer

Private set_time As Integer

Private Sub Command1_Click()

'set the time

If IsNumeric(Me.Text1.Text) And CInt(Me.Text1.Text) > 0 Then

    down_time = CInt(Me.Text1.Text)

    set_time = down_time

Else

    Call MsgBox("please input a positive number!")

End If

End Sub

Private Sub Command2_Click()

If Me.Timer1.Enabled = False Then

    Me.Timer1.Enabled = True

Else

    Call MsgBox("please stop the timer first!")

End If

End Sub

Private Sub Command3_Click()

Me.Timer1.Enabled = False

End Sub

Private Sub Form_Load()

Me.Text1.Text = 1000

down_time = 1000

Me.Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If down_time < 0 Then

    down_time = 0

    down_time = set_time

    Me.Timer1.Enabled = False

End If

Me.Label1.Caption = down_time & " ms"

down_time = down_time - 10

End Sub