Ridimensionare un immagine mantendendo le proporzioni

Capita spesso di dover cambiare le dimensioni di un immagine mantenendo le proporzioni, quella banale funzione che photoshop ci ha abituato a dare per scontata, constraint proportion e via!

Ecco una funzione che vi viene in aiuto:

Public Function GetNewsize(ByVal OriginalSize As Size, ByVal DesiredSize As Size) As Size
Dim NewSize As Size
'calcolo le nuove dimensioni
Dim nPercentW As Single = DesiredSize.Width / OriginalSize.Width
Dim nPercentH As Single = DesiredSize.Height / OriginalSize.Height
Dim nPercent As Single = IIf(nPercentH < nPercentW, nPercentH, nPercentW)
NewSize = New Size(OriginalSize.Width * nPercent, OriginalSize.Height * nPercent)
'
Return NewSize
End Function