Private Sub zweierbild(linkesBild As Image, rechtesBild As Image, ref ergebnis _
  As Image)
'Sicherstellen, dass das resultierende Bild die benötigte Größe hat
ergebnis = New Bitmap(linkesBild.Size.Width + rechtesBild.Size.Width, Math.Max( _
  linkesBild.Size.Height, rechtesBild.Size.Height)) 
Dim grErgebnis As Graphics = Graphics.FromImage(ergebnis) 
grErgebnis.DrawImage(linkesBild, New Size(0, 0)) 
grErgebnis.DrawImage(rechtesBild, New Size(linkesBild.Size.Width, 0))
grErgebnis.Dispose()
PictureBox3.Image = ergebnis
End Sub

Private Function zweierbild(linkesBild As Image, rechtesBild As Image) As Image
Dim ergebnis = New Bitmap(linkesBild.Size.Width + rechtesBild.Size.Width, _
  Math.Max(linkesBild.Size.Height, rechtesBild.Size.Height)) 
Dim grErgebnis As Graphics = Graphics.FromImage(ergebnis) 
grErgebnis.DrawImage(linkesBild, New Size(0, 0)) 
grErgebnis.DrawImage(rechtesBild, New Size(linkesBild.Size.Width, 0))
grErgebnis.Dispose()
'Funktionswert zurückgeben
zweierbild = ergebnis
End Function