Looping midi without a controll??

[Dayo312]

Im using MciSendString to play a midi, How can I loop it please?
Thankyou

[alwsid]

Ok Dayo312 you can try this code:
General Declarations
Dim StatusMusic as Boolean

Private Sub Form_Load()
Dim i As Long
Dim d As String
d = "C:\Midis.mid"
StatusMusic = True
i = mciSendString("open sequencer!" & d & " alias midi", "", 0, 0)
i = mciSendString("play midi", "", 0, 0)
If i Then MsgBox "Error! No midi file in location" & " => " & d
End Sub

Private Sub Timer1_Timer()
Dim MCIStatusLen As Integer
Dim MCIStatus As String
Dim i As Long
If StatusMusic = True Then
MCIStatusLen = 15
MCIStatus = String(MCIStatusLen + 1, " ")
i = mciSendString("STATUS midi MODE", MCIStatus, MCIStatusLen, 0)
If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
i = mciSendString("PLAY midi FROM 0", "", 0, 0)
End If
End If
End Sub