ltmmWMProfile.GetStreamByNumber Example for Visual Basic

' Manipulating Streams: 
Private Sub RemoveStreamByNumber(lStreamNumber As Long, Profile As ltmmWMProfile) 
Dim StreamConfig As ltmmWMStreamConfig
Dim res As VbMsgBoxResult

Set StreamConfig = Profile.GetStreamByNumber (lStreamNumber) 

res = MsgBox("remove stream " + StreamConfig.StreamName, vbYesNo, "Confirm remove")

If res = vbYes Then
    Profile.RemoveStream (StreamConfig) 
    ' or use
    'Profile.RemoveStreamByNumber (lStreamNumber) 
End If

End Sub