'主板蜂鸣
'
' Beep
'
' VB声明
' Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
' 说明
' 用于生成简单的声音
' 返回值
' Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError
' 参数表
' 参数 类型及说明
' dwFreq Long，声音频率（从37Hz到32767Hz）。在windows95中忽略
' dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略 （1秒=1000毫秒）
' ---------------------------------------------
' PB声明
'
' FUNCTION ulong Beep(ulong dwFreq,ulong dwDuration) LIBRARY "kernel32.dll"
'
'
' 根据自己需要调整两个参数调用即可
'
' 如
' beep(879,2000)
'