A. use Microsoft Multimedia Control. find this control on component.
add this code to play mp3 file :
Private Sub PlaySound()
On Error GoTo ErrMsg
AxMMControl1.Wait = True
AxMMControl1.FileName = "D:\test.mp3"
AxMMControl1.Command = "Open"
AxMMControl1.Command = "Play"
Exit Sub
ErrMsg:
MsgBox(Err.Description)
End Sub
B. just call procedure name
Jx_Man
Nearly a Senior Poster
3,329 posts since Nov 2007
Reputation Points: 1,372
Solved Threads: 444