Private Sub SetOutputFileName()
Set lmNetDeMux
= ltmmPlayCtrl1.GetSubObject(ltmmPlay_Object_Splitter)
If Not
lmNetDeMux Is Nothing Then
lmNetDeMux.OutputFileName
= "C:\test.avi"
Set
lmNetDeMux = Nothing
End If
End Sub