VB可不可以设置倒计时几分钟后自动播放一首歌啊？？

'需要一个timer控件和Media player控件和Label
'各画出一个
Private Sub Form_Load()'窗体启动时
Label1.Caption = 60 'Label1的名称为60 (本程序当作60秒)
Timer1.Interval = 1000 'Timer1每1秒执行一次 如果为60000就是每一分钟执行一次
End Sub
Private Sub Timer1_Timer()
Dim b
Label1.Caption = Label1.Caption - 1 '每秒时间减1
If Label1.Caption = "0" Then '当Label1的名称(秒数)=0时 就
WindowsMediaPlayer1.URL = "D:\音乐\XXX.mp3" 'WindowsMediaPlayer1播放的路径是"D:\音乐\XXX.mp3"
End If
End Sub

朋友，这个代码希望能帮你个帮。。。如果没有达到你要的效果。请发百度消息给我。。希望能帮你解决好问题 呵呵

'需要控件:timer1
'模板
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8<