Visual Basic - Control MMControl

Hola a todos:
Estoy usando VB5 y manejo un archivo de sonido MID con MMControl. Lo que busco, es que el archivo de sonido se ejecute indefinidamente, es decir que en forma automática, una vez que termina se vuelva a ejecutar desde el principio. ¿Se puede? ¿Cómo se hace? Gracias.

Saludos

Diego

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
'la ventaja de tocar archivos de audio con apis es que no tienes que 'cargar con el OCX al lado

Private Sub Command1_Click()
Dim ret As Integer

ret = mciSendString( _
"open c:\mifile.MID type sequencer alias XXX", _
0&, 0, 0)

ret = mciSendString("play XXX wait", 0&, 0, 0)
ret = mciSendString("close XXX", 0&, 0, 0)

End Sub

/////////////
mas ayuda en msdn
ARTILCE-ID: Q141756
Article ID: Q171980