Attribute VB_Name = "modEffect"
Option Explicit



Public Sub Play(File As String, MC As Control)
    
    MC.Command = "Close"
    MC.Notify = False
    MC.Wait = True
    MC.DeviceType = "WaveAudio"
    MC.FileName = File
    MC.Command = "Open"
    MC.Command = "Play"
    
    
End Sub