Gracias por todo pero tengo otro problemilla lo estoy haciendo por chekbox:
en el codigo del checkbox pongo esto:
Código:
If Check1.Value = 1 Then Timer1.Interval = 1
If Check1.Value = 0 Then Timer1.Interval = 0
y en el Timer1 lo pongo a 1 y pongo este codigo:
Código:
Private Sub Timer1_Timer()
If Check1.Value = 1 Then
Dim sPath As String
Dim lRet As Long
sPath = Chr(34) & App.Path + "\Sonido.wav" & Chr(34)
lRet = mciSendString("OPEN " & sPath, 0&, 0, 0)
lRet = mciSendString("PLAY " & sPath & " FROM 0", 0&, 0, 0)
End If
End Sub
El caso es que cuando pulso el chekbox suena como interferencias y despues desconecto el check y suena el sonido bien, no se a que se debera.
El caso es que quiero dejarlo pulsado y al pulsar una tecla que suene el sonido.
Muchas gracias a todos