以下的VB6代码实现MP3的播放，但只能播放一次，如何修改代码，使其实现重复播放同一首歌？
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
   mciSendString "open e:\梁祝.mp3 alias mc", 0, 0, 0
   mciSendString "play mc", 0, 0, 0
End Sub

使用MMControl控件，等于重新编一个实现MP3播放的程序，不会做。