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