'The method will allow video streams only Private Sub SuppressAudioStreams(Convert As ltmmConvertCtrl) Convert.AllowedStreams = ltmmConvert_Stream_Video End Sub