Dim img1 As Image = Bitmap.FromFile("C:\Blaue Berge.jpg")
        Dim img2 As Image = Bitmap.FromFile("C:\Sonnenuntergang.jpg")
        Dim img3 As Image = Bitmap.FromFile("C:\Wasserlilien.jpg")
        Dim sz As New Size((img1.Width + img2.Width + img3.Width) / 2, _
          img1.Height + img2.Height + img3.Height)
        Dim b As New Bitmap(sz.Width, sz.Height)
        Dim g As Graphics = Graphics.FromImage(b)
        g.DrawImage(img1, 0, 0)
        g.DrawImage(img2, 0, img1.Height)
        g.DrawImage(img3, 0, img2.Height + img1.Height)
        b.Save("C:\neu2.bmp")