Public Shared Function CombineBitmaps(bmp_left As Bitmap, _
   bmp_right As Bitmap) As Bitmap
 
   Dim new_height As Integer = Math.Max(bmp_left.Height, bmp_right.Height)
   Dim bmp_combine As Bitmap
 
   Using bmp_left_zoom As Bitmap = ZoomBitmap(bmp_left, new_height), _
      bmp_right_zoom As Bitmap = ZoomBitmap(bmp_right, new_height)
 
      bmp_combine = New Bitmap _
         (bmp_left_zoom.Width + bmp_right_zoom.Width, new_height)
 
      Using g As Graphics = Graphics.FromImage(bmp_combine)
 
          g.DrawImage(bmp_left_zoom, 0, 0)
          g.DrawImage(bmp_right_zoom, bmp_left_zoom.Width, 0)
      End Using
   End Using
   Return bmp_combine
End Function