ltmmPlayCtrl.MidiRenderers Example for Visual Basic

' 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