Private Sub AddCustomFormat(Convert As ltmmConvert)
   Dim Format As IltmmTargetFormat
  
  ' add a new format at the end of the formats list
   Convert.TargetFormats.Add "My Own Format", -1
   Set Format = Convert.TargetFormats.Item(Convert.TargetFormats.Count - 1)
   ' set the format's sink filter: this example uses "LEAD Network Sink (2.0)"
   Format.Sink = "@device:sw:{083863F1-70DE-11D0-BD40-00A0C911CE86}\{E2B7DE05-38C5-11D5-91F6-00104BDB8FF9}"

   ' set the format's mux filter: : this example uses "LEAD Network Multiplexer A module that combines audio and video into one file. (2.0)"
   Format.Mux = "@device:sw:{083863F1-70DE-11D0-BD40-00A0C911CE86}\{E2B7DE01-38C5-11D5-91F6-00104BDB8FF9}"
   ' specifiy what streams your new format can have
   Format.Streams = ltmmTargetFormat_Stream_Audio Or ltmmTargetFormat_Stream_Video

   ' verify streams if needed ...
   ' and that's it
   Set Format = Nothing
   'later, update TargetFormat wirh the new format' index to use your new format.
End Sub