Помогите с парой вопросов

Attribute VB_Name = "modSound"
Option Explicit
 
'--------------------------------------------------------
Public Const SND_ASYNC = &H1
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_FILENAME = &H20000
Public Const SND_NODEFAULT = &H2
'--------------------------------------------------------
 
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Public Sub LoadResSound(ByVal ResName, Optional ByVal ResType As String = "Wav", Optional ByVal sndLoop As Boolean = False)
On Error Resume Next
Dim sndBuff As String
 
sndBuff = StrConv(LoadResData(ResName, ResType), vbUnicode)
'----------
If sndLoop Then
   Call PlaySound(sndBuff, 0&, SND_ASYNC Or SND_MEMORY Or SND_LOOP)
Else
   Call PlaySound(sndBuff, 0&, SND_ASYNC Or SND_MEMORY)
End If
'----------
End Sub
 
Public Sub LoadFileSound(ByVal FileName As String, Optional ByVal sndLoop As Boolean = False)
'----------
If sndLoop Then
   Call PlaySound(FileName, 0&, SND_ASYNC Or SND_LOOP Or SND_NODEFAULT)
Else
   Call PlaySound(FileName, 0&, SND_ASYNC Or SND_FILENAME Or SND_NODEFAULT)
End If
'----------
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
   UnloadMode As Integer)
   '=== универсальная проверка выгрузки формы===
   Dim strQuestion As String
   Dim intAnswer As Integer
   Dim aryMode As Variant
   aryMode = Array("Close", _
   "vbFormCode", "vbAppWindows", _
   "vbAppTaskManager", "vbFormMDIForm")
   strQuestion = "Вы готовы выгрузить эту форму?"
   intAnswer = MsgBox(strQuestion, _
   vbQuestion + vbYesNo, aryMode(UnloadMode))
   If intAnswer = vbNo Then Cancel = 1
 '===End===
 End Sub

Attribute VB_Name = "modSound"
Option Explicit
 
'--------------------------------------------------------
Public Const SND_ASYNC = &H1
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_FILENAME = &H20000
Public Const SND_NODEFAULT = &H2