Dayo312
Jan 8th, 2000, 08:42 AM
OK,
I can play a midi now, but how do I loop it?? thank you!!!
TheMadMonk
Jan 8th, 2000, 09:26 AM
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