Violent Ken

Moi je ferais :
If mnuSon.Checked = True Then
mnuNon.Checked = False
Sounds.PlayWavResource("m16.wav")            'joue le son
Else
mnuNon.Checked = True
'on ne met rien ici, puisqu'on ne joue pas le son
End If

Donc au lieux "d'annuler" les sons, tu décides (ou non) de les jouer.
@+

Private Sub mnuSon_Click() 
    'reçoit l'inverse de la valeur
    mnuSon.Checked = Not mnuSon.Checked 
End Sub 
'
'
Private Sub Command1_Click() 
    'joue "m16.wav" au click uniquement si le menu son est coché
    If mnuSon.Checked Then Sounds.PlayWavResource ("m16.wav") 
End Sub 
'
'
Private Sub Command2_Click() 
    'joue "uzi.wav" au click uniquement si le menu son est coché
    If mnuSon.Checked Then Sounds.PlayWavResource ("uzi.wav") 
End Sub 
 

Coloration syntaxique automatique [AFCK]
       

PCPT