Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback

Dim audio1 As Audio

'nella procedura che deve riprodurre il suono

audio1 = New Audio(percorso file)
audio1.play