Public Sub BeepExt(ByVal w As Integer)
Dim f As Boolean
Dim lFreq As Long
    lFreq = CLng(sSupFrequency)
    Select Case w
        Case  1  'Ok
            f = BeepEx(lFreq * 5, CLng(60))
        Case 2 'Error
            f = BeepEx(lFreq *  4 , CLng( 80 ))
            f = BeepEx(lFreq *  4 , CLng( 80 ))
            f = BeepEx(lFreq *  4 , CLng( 80 ))
            f = BeepEx(lFreq *  2 . 5 , CLng( 160 ))
        Case  3  'Atantion
            f = BeepEx(CLng(lFreq * 8), CLng(30))
            f = BeepEx(CLng(lFreq * 8 * 16 / 12), CLng(30))
            f = BeepEx(CLng(lFreq * 8 * 19 / 12), CLng(30))
        Case 4 'duble
            f = BeepEx(CLng(lFreq *  6 ), CLng( 100 ))
            f = BeepEx(CLng(lFreq *  4 ), CLng( 100 ))
            f = BeepEx(CLng(lFreq *  6 ), CLng( 100 ))
            f = BeepEx(CLng(lFreq *  4 ), CLng( 100 ))
    End Select
End Sub

BeepExt  4 
BeepExt  2 
BeepExt  3 
BeepExt  1