' This function deselects all MIDI renderers from
' the specified play object
Private Sub DisplayMidiRenderers(Play As ltmmPlayCtrl)
Dim Renderers As ltmmRenderers
Dim Renderer As ltmmRenderer
Dim i As Long
Set Renderers = Play.MidiRenderers
If Not Renderers Then
For i = 0 To Renderers.Count
Set Renderer = Renderers.Item(i)
Renderer.Selected = False
Next i
End If
End Sub