[VB.NET] Ridimensionare immagine mantenendo proporzioni, con sfondo in eccesso bianco

[Vinsent]

Esempio:

        Dim immagine As New Bitmap(1000, 800)
        Dim gr As Graphics = Graphics.FromImage(immagine)
        gr.Clear(Color.Red)

        Dim sfondo As New Bitmap(1000, 1000)
        Dim gr1 As Graphics = Graphics.FromImage(sfondo)
        gr1.Clear(Color.Green)

        Dim x As Integer = (sfondo.Width - immagine.Width) / 2
        Dim y As Integer = (sfondo.Height - immagine.Height) / 2
        gr1.DrawImage(immagine, x, y)

        PictureBox1.Image = sfondo