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 · ベストアンサー

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)にします。

補足

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

回答No.3

imogasi

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

回答No.2

アプ（@skm36522）

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

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

回答No.1

vbhanatyan

Microsoft.VisualBasic.Beep() です。