ltmmWMProfile.MutualExclusionCount Example for Visual Basic

' The example below checks all the streams for
' a mutual object, if the quality is less than 50, 
' it is removed. 
Private Sub SetupMutualObjects(Profile As ltmmWMProfile) 
Dim MutualExc As ltmmWMMutualExclusion
Dim StreamConfig As ltmmWMStreamConfig
Dim i As Long
Dim j As Long

For i = 0 To Profile.MutualExclusionCount - 1
    Set MutualExc = Profile.GetMutualExclusion (i) 
    If MutualExc.StreamCount = 0 Then
        Profile.RemoveMutualExclusion MutualExc
    Else
        For j = 0 To MutualExc.StreamCount
            Set StreamConfig = Profile.GetStreamByNumber (MutualExc.GetStream (j)) 
            If StreamConfig.quality < 50 Then
                MutualExc.RemoveStream StreamConfig
            End If
        Next j
    End If
Next i
End Sub