Option Explicit
Private Declare Function Beep& Lib "Kernel32" (ByVal Fq&, ByVal Tm&)
Sub game() 'A adapter... (faire des tests)
'Beep tonalité, durée
Beep 500, 300
Beep 550, 300
Beep 600, 300
Beep 650, 300
Beep 700, 300
Beep 750, 300
Beep 800, 300
Beep 850, 300
End