codice:
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback

Dim audio1 As Audio

audio1 = New Audio(FileName)

audio1.Play()