Beep音を出すには？

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Beep音を出す
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep() ' Sound a tone.
Next I

End Sub
上記のコードでBeep音を出したいのですが、鳴りません。
（Beepコードは、ＶＢのサンプルコードです。）
ＯＳ：ＷｉｎＸＰ　ＳＰ３
ＶＢ.ＮＥＴ　Ver2003です。

フォームにコマンドボタンを一つ貼り付け、
コマンドボタンのクリックイベントで
Beep音を鳴らしたいです。

ＰＣのデバイスマネージャ設定は、
Beep音が有効になっています。
他の音（Win立上音他）は、デフォルトのままです。

詳しい方、教えて下さい。

No.4 ベストアンサー 回答者： ksoft 回答日時： 2009/11/28 20:25

Windows APIを使う方法

Enum MessageBeepType
SimpleBeep = -1
MB_OK = &H0
MB_ICONHAND = &H10
MB_ICONQUESTION = &H20
MB_ICONEXCLAMATION = &H30
MB_ICONASTERISK = &H40
End Enum

<System.Runtime.InteropServices.DllImport("user32.dll")> _
Shared Function MessageBeep(ByVal uType As MessageBeepType) As System.Boolean
End Function

で、Beep()のところを、MessageBeep(MessageBeepType.SimpleBeep)にします。

この回答への補足

たくさんの方のご回答をありがとうございます。
いろいろ勉強しながら試してみます。

補足日時：2009/12/14 11:57

No.3 回答者： imogasi 回答日時： 2009/11/26 23:39

http://dobon.net/vb/dotnet/vb2cs/vbbeep.html
NET Frameworkのバージョンによる違い の辺り。
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?p …
など。
「VB.NET Beep音」で照会のこと。

No.2 回答者： skm36522 回答日時： 2009/11/26 10:51

下記サイトを参照して見てください。

ビープ音などのシステム・サウンドを鳴らすには?
http://www.atmarkit.co.jp/fdotnet/dotnettips/440 …

No.1 回答者： vbhanatyan 回答日時： 2009/11/26 10:39

Microsoft.VisualBasic.Beep() です。