.wav
Es mu facil mira:
1º create un modulo -->
Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Const SND_NOSTOP = &H10
2º y luego en un form -->
Ejemplo:
Private Sub Image1_Click()
Dim rc As Variant
rc = sndPlaySound("C:Proyecto ADOVolver.wav", SND_NOSTOP)
factura.Hide
movimientos.Show
End Sub
ok? Si tienes alguna duda ya sabes. Salu2
1º create un modulo -->
Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Const SND_NOSTOP = &H10
2º y luego en un form -->
Ejemplo:
Private Sub Image1_Click()
Dim rc As Variant
rc = sndPlaySound("C:Proyecto ADOVolver.wav", SND_NOSTOP)
factura.Hide
movimientos.Show
End Sub
ok? Si tienes alguna duda ya sabes. Salu2
