I don't know about video, but use this to play a .WAV:
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_NOSTOP = &H10
Private Sub cmdButton_Click()
Dim MakeSound As Long
MakeSound = sndPlaySound("C:\Explode.WAV", SND_ASYNC Or SND_NOSTOP)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.