VB调用主板蜂鸣器,发出警告声音

'主板蜂鸣 

'
'  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)
'