連続の投稿　失礼します。

以下のような関数で音を出そうとしています。

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Const SND_ASYNC = &H1

Call PlaySound(App.Path & "Windows Information Bar.wav", 0, SND_ASYNC)

どのWAVを　指定していても　　Windows XP Ding.wav　の音しか出ません。
WindowsMediaPlayerでは　正常に音が出ております。

環境は
WindowsXpPro VB6+SP6です。

よろしくお願いします。

プログラムを起動したフォルダに "Windows Information Bar.wav"　ファイルが
ないからエラー音が鳴っているのでは。

ちゃんと他の音も鳴りますよ。
Private Sub Command1_Click()
   Call PlaySound("C:\WINDOWS\Media\Windows XP Startup.wav", 0, SND_ASYNC)
End Sub

どうもありがとうございます。
指示通りに行いますとOKでした。

ありがとうございました。