程序的窗体内含有两个Timer控件，一个文本框控件，两个命令按钮控件，四个标签控件。其中Timer1的Interval属性设置为60000，也就是一分钟响应一次，Timer1的Interval属性设置为500，也就是每0.5秒响应一次。Label1显示剩余时间，Label2显示现在时间。

代码如下：

Dim n As Integer
Dim t As String

Private Sub Command1_Click()    '计时开始
    If Text1.Text = "" Then
        Exit Sub
    End If
   
    t = Val(Text1.Text)
    Timer1.Enabled = True
    Label1.Caption = "剩余时间：" & t & "分钟"
   
End Sub

Private Sub Command2_Click()     '退出程序
   End
End Sub

Private Sub Timer1_Timer()
  n = n + 1
  Label1.Caption = "剩余时间：" & t - n & "分钟"
 
  If n = t Then
      Beep
      MsgBox "时间到", vbExclamation + vbOKOnly
      Timer1.Enabled = False
      n = 0
  End If
 
End Sub

Private Sub Timer2_Timer()
  Label2.Caption = "现在时间：" & Time
 
End Sub

运行效果如下图