请参考,这是我做的后台执行的PC喇叭下班时间报警程序
Private Sub Form_Load()
App.TaskVisible = False
frmMain.Hide
End Sub
Private Sub Timer1_Timer()
Dim MyTime, j
MyTime = Format(Time, "h:m")
If MyTime = #11:40:00 AM# Or MyTime = #6:35:00 PM# Then
For j = 1 To 5
Beep 1000, 500 '第一个参数是频率,第二个是响的时间,单位毫秒
Sleep 200
Next j
End If
End Sub