'First add the ActiveX MMControl
 
Option Explicit
 
Private Sub Form_Load()
 
Dim AppPath As String
 
    'Appointment of music file from within your program
 
    If Right$(App.Path, 1) <> "\" Then
        AppPath = App.Path & "\Sound.wav"
    Else
        AppPath = App.Path & "Sound.wav"
    End If
 
    'Determine the type of music file
 
    MMControl1.DeviceType = "waveaudio"
 
    'If the file type " MIDI "
    'MMControl1.DeviceType = "Sequencer"
 
    'Determining file name
 
    MMControl1.FileName = AppPath
    'Opening the file
 
    MMControl1.Command = "open"
    'Reading file
 
    MMControl1.Command = "play"
 
End Sub
 
 
Private Sub MMControl1_Done(NotifyCode As Integer)
 
    'This event at the end of passage voice
 
    'Re-reading passage voice
    MMControl1.Command = "prev"
    'Reading passage voice again
    MMControl1.Command = "play"
 
End Sub

AppPath = App.Path & "\Sound.wav"