Dim Sponsor As New Sponsor()
Dim SponsorLogo As System.Drawing.Image = Sponsor.GetLogo(SponsorID)

Dim NewWidth As Integer = width 
Dim NewHeigth As Integer = SponsorLogo.Height / (SponsorLogo.Width / width)

Dim Source As New Bitmap(SponsorLogo) // берем картинку
Dim Destination As New Bitmap(NewWidth, NewHeigth) // создаем  2 -ю картинку нужного размера 

Dim Grx As Graphics = Graphics.FromImage(Destination) //переводим Bitmap в Graphics 
Dim objBrush = New SolidBrush(Color.White) // создаем белую кисть
Grx.FillRectangle(objBrush,  0 ,  0 , NewWidth, NewHeigth) // заливаем белым область от угла до угла

Grx.DrawImage(Source, New Rectangle( 0 ,  0 , NewWidth, NewHeigth)) // сверху кладем картинку и дальше пишем в поток

Response.ContentType =  "image/gif" 
Destination.Save(System.Web.HttpContext.Current.Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
Grx.Dispose()
Destination.Dispose()
Source.Dispose()