すいません教えて下さい。
ＶＢで処理が成功した時、エラーの時、その他と処理結果ごとに音を変えて出したいのですが
どのようにすれば良いのか教えて頂けませんでしょうか。
お願いしますm(__)m

こんな感じでどうでしょうか？

'モジュールの宣言に
’----------------------------
Public Const SND_SYNC = &H0          '同期再生
Public Const SND_ASYNC = &H1         '非同期再生
Public Const SND_LOOP = &H8          'ループ
Public Const SND_NOSTOP = &H10       '他が再生中は再生しない

'sndPlaySound関数の宣言
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
’----------------------------

'モジュールに----------------------------
Public Sub extendBeep(Optional ByVal Fnamestr As String = "C:\WINDOWS\MEDIA\ringin.wav")
'使用法: Call extendBeep(ファイル名)
Dim lngL As Long
lngL = sndPlaySound(Fnamestr, SND_ASYNC Or SND_NOSTOP)
End Sub
’----------------------------

参考までに・・・
ヘルプにはsndPlaySoundについてこうかかれています。

---引用開始--------------------------------------------
この関数は、PlaySound関数のサブセットであり、
Windowsの以前のバージョンとの互換性のために残されています。
---引用終了--------------------------------------------

後々のことを考えるとPlaySoundを使ったほうがいいでしょう。

> 参考までに・・・
> ヘルプにはsndPlaySoundについてこうかかれています。
>
> ---引用開始--------------------------------------------
> この関数は、PlaySound関数のサブセットであり、
> Windowsの以前のバージョンとの互換性のために残されています。
> ---引用終了--------------------------------------------
>
> 後々のことを考えるとPlaySoundを使ったほうがいいでしょう。

何から何まですいません。
PlaySound関数を使用した時、どう記述すればいいのか教えて下さい。
重ね重ねお願いします。m(__)m

> > 参考までに・・・
> > ヘルプにはsndPlaySoundについてこうかかれています。
> >
> > ---引用開始--------------------------------------------
> > この関数は、PlaySound関数のサブセットであり、
> > Windowsの以前のバージョンとの互換性のために残されています。
> > ---引用終了--------------------------------------------
> >
> > 後々のことを考えるとPlaySoundを使ったほうがいいでしょう。

こことか見てください。

http://homepage1.nifty.com/rabikatsu/api/playsound.htm

又は　ヘルプで MMControl　で検索して見て下さい。