in the directory to be
   ' enumerated
   Dim sBaseDir As String
   sBaseDir = App.Path &amp; "\images\"
   Dim sDir As String
   sDir = Dir(sBaseDir &amp; "*.bmp")

   Dim cB as New cBitmap
   cB.Load sBaseDir &amp; sDir

   ' Create the file stream to write to:
   cAVI.StreamCreate cB
</pre><h3>3. Adding bitmaps and closing the stream.</h3><p>
Once the stream has been created, the <span class="code">StreamAdd</span>
method is called for each subsquent image, and finally the
<span class="code">StreamClose<