谁能给我说哈!
參考答案: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_Load()
mciSendString "open C:\birthday.mid alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub