asignar sonidos a eventos
para asignar el sonido microsoft a un evento, por ejemplo, a onopen de un formulario) utiliza el comando playsound(). declara la funcion sndplaysound% lib mmsystem (byval filename$, byval snd_async% function playsound (msound) dim xx% xx% = sndplaysound(msound, 1) play mmwave sound if xx% = 0 then msgbox the sound did not play! end function function listwav (dirname as string) purpose: lists all .wav files in the dirname directory. dim filenam as string on error goto listwaverr filenam = dir$(dirname & \*.wav ) do while len(filenam) > 1 debug.print filenam filenam = dir$ loop listwavexit: on error goto 0 exit function listwaverr: if err = 76 then path not found msgbox path not found else msgbox error & err & : & error$(err) end if resume listwavexit end function