'Entête de module
Imports WMPLib
Public Class Form1
Public count As Integer
Dim Wmp As WindowsMediaPlayer
'Suite du code
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim chemin As String
Wmp = CreateObject("WMPlayer.OCX.7")
chemin = "D:\Puzzle Rotation\Resources\china.wav"
Wmp.URL = chemin
Wmp.controls.play()
End Sub