Play an audio file, remember and change the audio file.

'play an audio file

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long

Private Sub Command1_Click()

Dim iresult
iresult = mciExecute("play C:\mysample.wav")

End Sub