Option Explicit
Public Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
public i as integer
Public Sub BeepSet(nPara1 As Long, nPara2 As Long, nPara3 As Long)
Dim frequency As Long
Dim I As Long
For I = 1 To nPara3
frequency = nPara1
APIBeep frequency, nPara2
Next
End Sub