Private Declare Function Beep& Lib "Kernel32" (ByVal Fq&, ByVal Tm&)
Sub JouerSon(ModeSon As Byte)
Const Doux As Byte = 1
If ModeSon = Doux Then
Beep 500, 500
Beep 550, 100
Beep 625, 100
Beep 675, 100
Beep 750, 100
Beep 850, 100
Else
Beep 750, 50
Beep 750, 50
Beep 850, 50
Beep 1000, 50
End If
End Sub