'The method will allow video streams only Private Sub SuppressAudioStreams(Play As ltmmPlayCtrl) Play.AllowedStreams = ltmmPlay_Stream_Video End Sub