用API吧,比MCI控件舒服
另外,你如果就是想用控件,建议使用Media Player Control
那个控件功能很强大的
mediaplayer.PlayCount =0就可以循环播放
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongPrivate Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8         
Private Const SND_MEMORY = &H4         
Private Const SND_NODEFAULT = &H2         
Private Const SND_NOSTOP = &H10        
Private Const SND_NOWAIT = &H2000      
sndPlaySound filename, SND_ASYNC Or SND_LOOP