Question : make it stop!

I want to have a macro/script that will play a sound looped when mail is recieved and wil play over and over until I read the email.  I would also like to have a button on the toolbar that stops the looping.  BlueDevilFan came up with this for me, but I don't know how to make it stop... any ideas?

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT = &H2
Const SND_SYNC = &H0
Const SND_NOSTOP = &H10
Const SND_MEMORY = &H4
 
Sub PlaySoundLoop(strCommand As String, strSound As String)
    Select Case LCase(strCommand)
        Case "start"
            sndPlaySound strSound, SND_LOOP + SND_ASYNC
        Case "stop"
            sndPlaySound vbNull, SND_ASYNC
    End Select
End Sub
 
'Duplicate this subroutine for each recipient you want to play a sound for.  Be sure to change the name.'
Sub PlayWarningA(Item As Outlook.MailItem)
    'Change the path and sound file name on the following line as desired'
    PlaySoundLoop "start", "C:\Windows\Media\Ding.wav"
End Sub
 
Sub PlayWarningB(Item As Outlook.MailItem)
    'Change the path and sound file name on the following line as desired'
    PlaySoundLoop "start", "C:\Windows\Media\SomeFile.wav"
End Sub
 
Sub StopWarning()
    PlaySoundLoop "stop"
End Sub
 

Answer : make it stop!

Acronis says that it can restore to dis-similar hardware - see this Acronis article http://kb.acronis.com/content/1566