{quote}{login=New}{date=16.02.2008 07:55}{thema=Проблемка с остановкой проигрывания звукового файла}{post}Помогите, пожалуйста!  
Есть программный код с помощью которого я запускаю на проигрывание звуковой файл (см.ниже)  
 
Private Declare Function PlaySound Lib "winmm.dll" _  
Alias "PlaySoundA" (ByVal lpszName As String, _  
ByVal hModule As Long, ByVal cVwFlags As Long) As Long  
Const SND_SYNC = &H0  
Const SND_ASYNC = &H1  
Const SND_FILENAME = &H20000  
Sub PlayWAVO()  
 WAVFile = "0207.wav"  
 WAVFile = ThisWorkbook.Path & "\" & WAVFile  
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)  
End Sub  
 
А как можно остановить проигрывающийся файл?{/post}{/quote}  
---  
 
Private Declare Function sndPlaySound _  
 Lib "winmm.dll" Alias "sndPlaySoundA" _  
 (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
 
Sub PlaySound()  
Dim WAVFile  
WAVFile = "0207.wav"  
WAVFile = ThisWorkbook.Path & "\" & WAVFile  
Call sndPlaySound(WAVFile, 1)  
End Sub  
 
Sub StopSound()  
Call sndPlaySound("", 4)  
End Sub  
 
---  
ZVI