VB - Neues Größenverhältnis eines Bilds berechnen

Diese Funktion ist dafür gedacht um ein neues Verhältnis zu erstellen wenn man z.B. die Größe eines Bildes verändern möchte und das Bild soll in der neuen Größe nicht "verzogen/verzerrt" werden sondern die Verhältnisse sollen beibehalten werden.

Public Function NewRatio(ByVal Width As Integer, ByVal Heigth As Integer, ByVal NewWidth As Integer)
    Dim SizeFactor As Decimal = NewWidth / Width
    Dim NewHeigth As Integer = Heigth * SizeFactor
    Return NewHeigth
End Function