如何在程序运行到某一时候自动播放指定的音乐？？？

Question

大家好！
    我想实现的是当程序运行到一位置时，自动播放指定的音乐，怎样实现这一功能？如何调用相应的
API？？
  例如：
  if ........ then
   自动播放对应的音乐..（相应的代码）

Answer 1

用 MMControl 控件 
       MMControl1.Command = "close"
       MMControl1.FileName = App.Path & "\.mp3"
       MMControl1.Command = "open"
       MMControl1.Command = "play"

Answer 2

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
Private Sub Form_Click()
Dim Res As Integer, Ret As String * 1024
Res = mciSendString("play " & App.path & "\2.mp3", Ret, 1024, 0)  '整首播放
End Sub

Answer 3

yangao(偶新手 请问门在哪里？) 是高手，问题已解决，该问题已结贴！！！！