Dim sys As String = Environment.GetEnvironmentVariable("SYSTEMROOT")
        Dim img1 As Image = Bitmap.FromFile(sys + "\Fächer.bmp")
        Dim img2 As Image = Bitmap.FromFile(sys + "\Feder.bmp")
        Dim newImage As Image = Nothing
        Dim sz As New Size((Math.Max(img1.Width, img2.Width)), img1.Height + _
          img2.Height)
        Dim bmp As New Bitmap(sz.Width, sz.Height)
        Dim gr As Graphics = Graphics.FromImage(bmp)
        gr.DrawImage(img1, 0, 0)
        gr.DrawImage(img2, 0, img1.Height, img2.Width, img2.Height)
        '// gr.DrawImage(img2, 0, img1.Height)
        newImage = CType(bmp, Image)
        Me.PictureBox1.Image = newImage