Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long'声音提示
If blnPlaySound Then        
  blnPlaySound = False        
  'CUSTOM(101)是个资源文件msg.wav
  barr = LoadResData(101, "CUSTOM")        
  sndPlaySound barr(0), &H4& Or &H1&    
End If