'Discovering Streams:
Private Sub GetStreamInfo(Profile As ltmmWMProfile)
Dim StreamConfig As ltmmWMStreamConfig
Dim i As Long
txtStreamInfo.Text = ""
' Show all the information regarding the streams
For i = 0 To Profile.StreamCount - 1
Set StreamConfig = Profile.GetStream (i)
txtStreamInfo.Text = txtStreamInfo.Text + "[[ Stream " + CStr(i + 1) + " ]]"
' Get the major type of the stream
txtStreamInfo.Text = txtStreamInfo.Text + StreamConfig.StreamType
' Get Stream number
txtStreamInfo.Text = txtStreamInfo.Text + CStr(StreamConfig.StreamNumber)
' Get Stream name
txtStreamInfo.Text = txtStreamInfo.Text + StreamConfig.StreamName
' Get connection name
txtStreamInfo.Text = txtStreamInfo.Text + StreamConfig.ConnectionName
' Get Bitrate
txtStreamInfo.Text = txtStreamInfo.Text + CStr(StreamConfig.Bitrate)
' Get the maximum latency (time in milliseconds) between stream reception and display
txtStreamInfo.Text = txtStreamInfo.Text + CStr(StreamConfig.BufferWindow)
' Get the major type of the media in the stream
txtStreamInfo.Text = txtStreamInfo.Text + StreamConfig.Type
' Get the maximum key frame time interval (in 100-nano seconds)
txtStreamInfo.Text = txtStreamInfo.Text + CStr(StreamConfig.MaxKeyFrameSpacing)
' Get the Quality, range from 0 to 100
' where zero denotes maximum frame rate and 100 denotes maximum quality.
txtStreamInfo.Text = txtStreamInfo.Text + "Stream quality unknown = " + CStr(StreamConfig.Quality)
If StreamConfig.Quality = -1 Then
txtStreamInfo.Text = txtStreamInfo.Text + "...(unknown)"
End If
Next i
End Sub