vb6.0倒计时程序怎么再最后10秒出现滴滴滴的警示音

在窗体上画一个Timer控件、一个按钮，一个ProgressBar控件（需要添加部件Microsoft Windows

Common Controls 6.0），用下面的代码，单击按钮开始10秒倒计时。
Private Sub Command1_Click()
Timer1.Enabled = True
ProgressBar1.Value = ProgressBar1.Max
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
ProgressBar1.Value = ProgressBar1.Max
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value - 10
If ProgressBar1.Value <= 0 Then
Timer1.Enabled = False
MsgBox "10秒倒计时结束！"
End If
End Sub

可以用 Beep 语句让计算机喇叭发出一个“滴”声，这条语句极其简单，没有任何参数。例如：

Private Sub Command1_Click()
Beep
End Sub

按一下按钮就会滴一声