From: jacksadie@btinternet.com   
      
   George   
   You are a dream come true !!!   
   Thank you very much for the trouble you have taken.   
   It looks great to me but I still need to understand where to lodge it.   
   Presumably I copy from "Option Explicit" through to "End sub" to   
   the clipboard and then paste it into somewhere.   
   But very sorry - I don't know where !!!   
   Am I a bit thicker than even you thought?   
   Big ideas but only a little   
   knowledge and that's a dangeropus thing.   
   I shall create a restore point first.   
   --   
   Regards, Jack Sadie   
   jaxalad-buying@yahooREMOVE.co.uk   
      
      
   "George Bashore"  wrote in message   
   news:TsidnW1d_KzcEC3eRVn-ig@comcast.com...   
   > Jack try this.   
   > Replace PathAndFileName with the path and file name to your wav file for   
   > each day of the week.   
   > example Call sndPlaySound("C:\sounds\startup.wav", 1)   
   > HTH   
   > George   
   >   
   >   
   >   
   > Option Explicit   
   > Private Declare Function sndPlaySound Lib "winmm.dll" Alias _   
   > "sndPlaySoundA" (ByVal FileName As String, _   
   > ByVal Flags As Long) As Long   
   > Dim myDate As String   
   >   
   > Private Sub Form_Load()   
   >   
   >    myDate = Format(Now, "dddd")   
   >    Debug.Print myDate   
   >    Select Case myDate   
   >    Case "Monday"   
   >       Call sndPlaySound("PathAndFileName", 1)   
   >    Case "Tuesday"   
   >       Call sndPlaySound("PathAndFileName", 1)   
   >    Case "Wednesday"   
   >        Call sndPlaySound("PathAndFileName", 1)   
   >    Case "Thursday"   
   >        Call sndPlaySound("PathAndFileName", 1)   
   >    Case "Friday"   
   >        Call sndPlaySound("PathAndFileName", 1)   
   >    Case "Saturday"   
   >        Call sndPlaySound("PathAndFileName", 1)   
   >    Case "Sunday"   
   >        Call sndPlaySound("PathAndFileName", 1)   
   >    End Select   
   > End Sub   
   >   
   >   
   >   
   > "Jack Sadie"  wrote in message   
   > news:bt6dnWQNkYlavi3enZ2dnUVZ8qmdnZ2d@pipex.net...   
   >>I have found out how to substitute my own wav sound for the Microsoft   
   >>default sound, but now I want to go a step further.   
   >>   
   >> I want to create 7 different wave files and have a different one open   
   >> according to the day of the week - the "monday.wav" opening on Mondays   
   >> and the "tuesday.wav" on Tuesdays and so on.   
   >>   
   >> It looks to me as if I need to have a routine created which I don't have   
   >> the expertise to do. And if I had a vb routine I wouldn't know how to   
   >> employ it on my computer.   
   >>   
   >> Can any kind person assist or point me in the right direction if this is   
   >> the wrong ng.   
   >> Thanks so much   
   >> --   
   >> Regards, Jack Sadie   
   >> jaxalad-buying@yahooREMOVE.co.uk   
   >>   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)