''' <summary>
''' chamando o midia player do windows para tocar um arquivo
''' O arquivo deve estar na pasta MyMusic
''' </summary>
''' <param name="arquivo"></param>
Private Sub btnPlay(arquivo As String)
Dim MediaPlayer As New WMPLib.WindowsMediaPlayer
MediaPlayer.openPlayer(My.Computer.FileSystem.SpecialDirectories.MyMusic + "\" + arquivo)
End Sub