Looping a midi

[Dayo312]

OK,

I can play a midi now, but how do I loop it?? thank you!!!

[TheMadMonk]

Try something like this:

Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
MediaPlayer1.filename = TheFile
MediaPlayer1.Play
'(this should keep playing the file again 'and again, until you stop it.
End Sub

Obviously, this assumes you are using the MediaPlayer
Also, there is an attribute of this control that you can set the # of times to repeat:
MediaPlayer1.PlayCount = x
'where x is an integer; it will (or should
'repeat the midi x number of times