Звук в форме Vba

[Batton]

Возможно ли сделать так, чтобы когда я открывал форму проигрывался файлик mp3 или wav& я хочу сделать так чтобы у меня было звуковое сопровождение открытой формы, возможно ли вообще такое?

[Hugo121]

Возможно.
Ищите
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long

[doober]

Можно смотрите здесь

[Batton]

а можешь подробнее код написать а то я не пойму его)))

[Hugo121]

==
В Модуле декларация
Код:

    Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
применение
Код:

sndPlaySound("ringin.wav", 1)

звуки выбираете любые 
==

Могу чуть разжевать:

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

[Batton]

щас буду пробовать, спасибо большое)))

[Batton]

все равно не получается((((

[Hugo121]

Вероятно в этом способе важны параметры вавки.
так играет:

Sub PlaySound()
Dim WAVFile
WAVFile = "c:\WINDOWS\Media\Критическая ошибка.wav" '
Call sndPlaySound(WAVFile, 1)
End Sub

Хотя соврал - сейчас конвертнул обычный flac - отлично играет.
Но до этого пробовал вав, конвертнутый с di.fm - не захотел, что-то видать с файлом не то получилось...