PictureBox1.Picture = Picture.Load(FileChooser1.SelectedPath)

  PictureBox2.Picture = NULL
  PictureBox2.Picture = NEW Picture(64, 64, TRUE)


          Draw.Begin(PictureBox2.Picture)
            Draw.Image(PictureBox1.Picture.Image, 0, 0, 256, 256, 0, 0, 256, 256)
          Draw.End()


          PictureBox1.Refresh
          PictureBox2.Refresh