Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        pb.Image = CombineBitmaps _
        (New Bitmap("C:\daten\ew.jpg"), New Bitmap("C:\daten\ks.jpg"))
        pb.Image.Save("C:\daten\new.jpg")
    End Sub
 
 
    Public Function CombineBitmaps(bmp_left As Bitmap,
      bmp_right As Bitmap) As Bitmap
 
        'Höhe der beiden Teilbiler ermitteln
        Dim new_height As Integer = bmp_left.Height + bmp_right.Height
 
        'Breite ermitteln (vom breitesten Teilbild)
        Dim new_width As Integer = Math.Max(bmp_left.Width, bmp_right.Width)
 
        'Neues Bildformat mit berechnete Höhe und Breite aus den beiden 
        ' Teilbilder
        Dim bmp_combine As New Bitmap(new_width, new_height)
        Dim g As Graphics = Graphics.FromImage(bmp_combine)
        g.DrawImage(bmp_left, 0, 0)
        g.DrawImage(bmp_right, 0, bmp_left.Height)
        Return bmp_combine
    End Function
 
End Class