你 使 用 的 是 VB 6.0， 可 你 調(diào) 用 的 API函 數(shù) 卻 都 是 16位 的 ， 當 然 不 會 成 功 。 正 確 的 方 法 如 下 ： 
    實 現(xiàn) 加 入 如 下 聲 明 ： 
    Private Declare Function mciSendString Lib "winmm.dll" Alias _ 
     "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ 
     lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _ 
     hwndCallback As Long) As Long 
    ' 如 果 你 想 播 放 其 它 文 件 ， 修 改 這 里 
    Private Const Song As String = "C:\Win95\Media\Canyon.MID" 
    播 放 時 使 用 如 下 命 令 ： 
    mciSendString "open " & Song & " type sequencer alias canyon", _ 
     0&, 0, 0 
    mciSendString "play canyon FROM 0", 0&, 0, 0 
    停 止 時 使 用 ： 
    mciSendString "close canyon", 0&, 0, 0 
<END>