http://forum.twbts.com/viewthread.php?tid=4047
程式碼是以下
Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszsoundname As String, ByVal uflags As Long) As Long
Public Sub 播放wav()
Dim soundName As String
soundName = "C:\WINDOWS\Media\Windows XP 啟動.wav" '指定?音文件
PlayWaveSound soundName, 1