VB中,我想做一个倒计时的软件

简单
取系统时间

判断设定时间 是否=系统时间

相等 play *.mp3

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "yyyy年mm月dd日")
Label2.Caption = Format(Now, "mmmm:dddd")
Label3.Caption = Format(Now, "hh:mm:ss")
sj = w.Text & ":" & ww.Text & ":" & www.Text
If Label3.Caption = sj Then
MsgBox "时间到"
End If
End Sub

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim m As Long
Private Sub Command1_Click()
m = Val(Text1.Text) '改m=val(text1.text)*60 变分钟
If Command1.Caption = "开始计时" Then
Timer1.Enabled = True
Command1.Caption = "暂停"