Como escalar una imagen y conservar su aspecto en VB.net

Bueno les dejo esta funcion q hace tiempo encontre y siempre se me pierde 

espero ya no.....

Public Function EscalarIMagen(ByVal OldImage As Image, ByVal TargetHeight As Integer, _
                               ByVal TargetWidth As Integer) As System.Drawing.Image

        Dim NewHeight As Integer = TargetHeight
        Dim NewWidth As Integer = NewHeight / OldImage.Height * OldImage.Width

        If NewWidth > TargetWidth Then
            NewWidth = TargetWidth
            NewHeight = NewWidth / OldImage.Width * OldImage.Height
        End If

        Return New Bitmap(OldImage, NewWidth, NewHeight)

    End Function