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)
End Sub
John