Hvordan stopper jeg lyd i VB?

Jeg er ved at lave min egen lille personlige musik afspiller i VB.
Jeg har fået musikken startet, men hvordan stopper jeg den igen?

Jeg bruger et module der ser sådan ud:
Option Explicit
Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Enum SND_Settings
SND_SYNC = &H0
SND_ASYNC = &H1
SND_NODEFAULT = &H2
SND_MEMORY = &H4
SND_LOOP = &H8
SND_NOSTOP = &H10
SW_SHOW = 5
End Enum

Public Sub Play(fname As String, Optional Settings As SND_Settings = SND_ASYNC)
Dim retval As Long
retval = sndPlaySound(fname, Settings)
End Sub

Og så afspiller jeg musikken med dette lille stykke:
Private Sub PlayM_Click()
Play "C:\Thomas VB\musik\Muse-TIRO.wav"
End Sub

Hvordan stopper jeg den?

//Coolpool