VB 加聲音

設你有一個1.wav檔，把它放在同一path內，打以下程式，小心大細楷(mp3檔不能播)，我在excel VBA OK，我沒有裝設VB6.0，沒法測試，希望也OK

Declare Function playsound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszname As String, ByVal hmodule As Long, ByVal dwflags As Long) As Long
Sub x()
Call playsound(ThisWorkbook.Path & "\1.wav", 0&, &H1)
End Sub


2010-03-11 11:50:06 補充：
VB舉得不好，(ThisWorkbook.Path可能只在試算表生效)，設 1.wav 檔放在 C:\

Sub x()
Call playsound("C:\1.wav", 0&, &H1)
End Sub

可用app.path 阿