所用到的全局变量声明
    Global Const SND_SYNC = &H0       播放WAV用到的全局变量
    Global Const SND_ASYNC = &H1   播放WAV用到的全局变量
    Global Const SND_NODEFAULT = &H2   播放WAV用到的全局变量
    Global Const SND_LOOP = &H8   播放WAV用到的全局变量
    Global Const SND_NOSTOP = &H10  播放WAV用到的全局变量
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

播放AVI的源代码
    Sub playAVI(AVIFile As String)
    Dim RVal As Long
    AVIFile = "play" + AVIFile + "fullscreen" 全屏幕播放AVI文件
    RVal = mciSendString(AVIFile, 0&, 0, 0&)
    End Sub
播放WAV的源代码
    Sub playWAV(WAVFile As String)
    Dim Flag As Integer
    Dim a As Integer
    wFlag = SND_ASYNC Or SND_NODEFAULT
    a = sndPlaySound(WAVFile, Flag)
    End Sub
其中WAVFile，AVIFile为文件的绝对路径