The following is a sample of the command that I used

-----------------
Private Sub Bashe1_Click()
Picture1.Visible = True
MediaPlayer1.Visible = True
MediaPlayer1.open App.Path & "\audio\Aa\Bashe.wma"
End Sub
------------------