From: tvaus@sympatico.ca   
      
   Jay Taplin wrote   
   > The code below should do it for you.  To do this, open up the resource   
   file   
   > editor; if you don't see it, go to "Addins...Add-in Manager" on the menu.   
   > Check that the "VB 6 Resource Editor" has the words Startup (and maybe   
   > Loaded too) under the column labeled "Load Behavior".  After exiting out   
   of   
   > this window, you can access the resource editor either by the green icon   
   on   
   > the toolbar, or "Tools...Resource Editor".   
   >   
   > After this, I just drag/dropped a .WAV file into the resource file window   
   > (if you don't see the resource file window in VB 6.  Then I ran the code   
   > below:   
   >   
   > Option Explicit   
   >   
   > 'API Declarations   
   >     Private Declare Function sndPlaySound Lib "winmm.dll" Alias   
   > "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As   
   > Long   
   >   
   > 'Module Level Constant Declarations   
   >     Private Const SND_ASYNC     As Long = &H1   
   >     Private Const SND_MEMORY    As Long = &H4   
   >     Private Const SND_NODEFAULT = &H2   
   >     Private Const Flags& = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY   
   >   
   > 'Control-related Events   
   >     Private Sub Command1_Click()   
   >         Dim b As String   
   >   
   >         b = StrConv(LoadResData(101, "WAVE"), vbUnicode)   
   >   
   >         sndPlaySound b, Flags&   
   >     End Sub   
   >   
   > This code was copied and very minimally changed (to document) from code I   
   > found at http://www.vbforums.com/showthread.php?s=&threadid=297909   
   >   
   > Jay Taplin, MCP   
   >   
   >   
   Thanks. I will try it soon.   
      
   Tom the Canuck.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)