Èç ÏÂ £º 
    Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias _ 
     "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As _ 
     Long) As Long 
    Const SND_SYNC = &H0 
    Const SND_ASYNC = &H1 
    Const SND_NODEFAULT = &H2 
    Const SND_LOOP = &H8 
    Const SND_NOSTOP = &H10 
    Private Sub Command1_Click() 
     sndPlaySound "C:\WIN98\MEDIA\tada.wav", SND_ASYNC Or SND_NODEFAULT 
     ... 
    End Sub 
<END>     