// get a picture
dim p as Picture = LogoMBS(500)

// start movie building
dim m as new JPEGMovieMBS

m.Width = 500
m.Height = 500
m.SecondsPerFrame = 0.5

// add frames where we count up
for i as integer = 1 to 20
  dim c as new Picture(500, 500)
  dim g as Graphics = c.Graphics
  g.ForeColor = &c000000
  g.TextSize = 50
  g.DrawPicture p, 0, 0
  g.DrawString str(i), 20, 50
  
  dim j as string = c.GetData(c.FormatJPEG)
  m.AddFrame j
  
next

// generate movie
dim MovieData as string = m.BuildMovie

// and write to file
dim f as FolderItem = SpecialFolder.Desktop.Child("test.mov")
dim b as BinaryStream = BinaryStream.Create(f, true)
b.Write MovieData