主题：不知道有没有机箱报警喇叭的指令BEEP?

 直接用，就行

Console.Beep

或者这样，也行

Dim sp As New DotNetSpeech.SpVoice()
sp.Speak("yi ku yi ku   ya me day   ya me day", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

http://www.foxtable.com/help/topics/2240.htm

 又或者这样

http://www.foxtable.com/help/topics/0330.htm

beep要写api，较麻烦一些，等等做一下看看

主板beep调用，如下设置

全局代码

<DllImport("kernel32.dll", EntryPoint := "Beep")> _
Public Function Beep(ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Integer
End Function

调用

beep(500,3000) '第一个参数是 音量，第二个参数是 时间

 呵呵，7楼等同于

Console.Beep(1000, 2000)