kernel32自带的Beep太弱了，来试试我的改进版本😂。

链接: https://pan.baidu.com/s/1AJNwZGG_nwZQowz5_n2WrQ 提取码: rd5u
' 异步版 Beep，作者YY菌，技术交流群（QQ）：250264265
Option Explicit
' 首先需要定义一个 AsyncBeep 类型的变量，并实例化为对象。
Dim asb As New AsyncBeep
Private Sub Command1_Click()
' 调用对象的 Play 方法播放指定频率的蜂鸣声（参数和 kernel32 的 Beep 完全一样，区别是此方法不会卡住界面）
asb.Play 320, 1750 ' 此方法是不会卡住界面的
End Sub
Private Sub Command2_Click()
' 将频率和时长都指定为0可强制停止播放（不传参数默认都为 0, 0）
asb.Play
End Sub