Äã ¿É ÒÔ ½« MMControl1µÄ VisibleÊô ÐÔ Éè ÖÃ Îª False£¬ È» ºó Êä Èë ÏÂ Ãæ µÄ ´ú Âë £º 
    Private Sub Form_Load() 
     MMControl1.Notify = False 
     MMControl1.Wait = True 
     MMControl1.Shareable = False 
     MMControl1.DeviceType = "WaveAudio" 
     MMControl1.filename = "C:\WIN98\MEDIA\Ctmelody.wav" 
     
     MMControl1.Command = "Open" 
     MMControl1.Command = "Play" 
    End Sub 
     
    Private Sub Form_Unload(Cancel As Integer) 
     MMControl1.Command = "Close" 
    End Sub 
<END>     
    