/span> method must be called to flush
out the AVI and clear up any resources associated with the stream:
</p><pre>
   Do
      ' Get next file:
      sDir = Dir

      ' If there was a next file:
      If (Len(sDir) &gt; 0) Then
  
         ' Read the image:
         cB.Load sBaseDir &amp; sDir
    
         ' Add it as a new frame to the stream
         cAVI.StreamAdd cB

      End If

   Loop While Len(sDir) &gt; 0

   ' Ensure that the stream is closed.
   cAVI.StreamClose 
</pre><h2>Other Resources</h2>