Ò» ¸ö °ì ·¨ ÊÇ Ê¹ ÓÃ MCI32¿Ø ¼þ £¬ Ëü °ü À¨ Ò» ¸ö Â¼ Òô °´ Å¥ ¡£ ÏÂ Ãæ ÊÇ Ò» ¸ö Ê¾ Àý £º 
     Private Sub Form_Load() 
     ' Set properties needed by MCI to open. 
     MMControl1.Notify = False 
     MMControl1.Wait = True 
     MMControl1.Shareable = False 
     MMControl1.DeviceType = "WaveAudio" 
     MMControl1.filename = "C:\temp\test.wav" 
     
     ' Open the MCI WaveAudio device. 
     MMControl1.Command = "Open" 
     End Sub 
     
     Private Sub MMControl1_StopClick(Cancel As Integer) 
     MMControl1.Command = "Save" 
     MMControl1.Command = "Close" 
     End Sub 
<END>    
