Join 2 images into one

General
1

Hi… I am looking for a piece of code or an algorithm in orden to join 2 images (jpgs or pngs) into a larger one. Both images are of the same width, place one below the other one and get a new one of the same width and a height equal to the sum of the heigths of the two ones.
Any idea ??
Thanks

2

Quick and dirty something like this?

[code]Dim f1 As FolderItem = GetOpenFolderItem("")
Dim f2 As FolderItem = GetOpenFolderItem("")

If f1 = Nil Or Not f1.Exists Then Return
If f2 = Nil Or Not f2.Exists Then Return

Dim p1 As Picture = Picture.Open(f1)
Dim p2 As Picture = Picture.Open(f2)

If p1 = Nil Or p2 = Nil Then Return

Dim Result As New Picture(Max(p1.Width, p2.Width), p1.Height + p2.Height)

Result.Graphics.DrawPicture p1, 0, 0
Result.Graphics.DrawPicture p2, 0, p1.Height[/code]

3

Exactly that was what I needed.
Thanks a lot Stefan !!!