vb

Private   Declare   Function   sndPlaySound   Lib   "Winmm.dll"   Alias   "sndPlaySoundA"   (ByVal   lpszSoundName   As   String,ByVal   uFlags   As   Long)   As   Long  
    
  Private   Sub   Cmdplay_Click()  
  Dim   SoundFile   As   String,   Result   As   Long  
  SoundFile   =   "C:\Pwin98\Media\The   Microsoft   Sound.WAV"  
  Result   =   sndPlaySound(SoundFile,   1)  
  End   Sub
我想你的意思不是点下按钮会发声  
  应该是鼠标经过按钮的时候发声对吧？  
  那就在moveover的事件里写上面的代码：)