' This method will change the source stream size Private Sub ResizeSource(Play As ltmmPlayCtrl) Dim SourceStream As ltmmMemory Set SourceStream = Play.SourceStream SourceStream.BufferSize = lNewSize End Sub