vb empalman imágenes

Coloque dos PictureBoxes en el formulario, no cambie ninguna propiedad, usamos código para cambiarlos

Nombre los archivos 1-1.bmp?1-2.bmp? 1-3.bmp....

2-1.bmp?2-2.bmp....

¿Privado?Sub?Form_Load()

¿Atenuar?I?As?Long

Atenuar?J?As?Long

Me.ScaleMode?=?3

Imagen1.ScaleMode?Picture2 . ScaleMode?=?3

Imagen2.AutoRedraw?=?True

Imagen1.AutoRedraw?=?True

Imagen1.AutoSize?=?True

Imagen1.BorderStyle?=?0

Imagen2.BorderStyle?=?0

Set?Picture1.Picture?=?LoadPicture("C:\1-1 . bmp")

'Imagen1.PaintPicture?PaintPicture?Imagen2.PaintPicture,?0,?0

Imagen2.Width?=?Imagen1.ScaleWidth?*?4

Imagen2.Height?=?Picture1.ScaleHeight?ScaleHeight?*?4

¿Para?I?=?1?A?4

Para?J?=? ?A?4

Establecer?Picture1.Picture?=?LoadPicture("C:\"? &?CStr(I)? &?CStr(I)?-.bmp")

Imagen2.PaintImagen?Imagen1.Imagen,? (I?-?1)?*?Imagen1.ScaleWidth,? (J?-?1)?*?Imagen1.ScaleHeight

Siguiente< / p>

¿Guardar imagen? Imagen2.Imagen,?" C:\All.bmp"

Fin?Sub

Guardar imagen?Imagen2. ,?