vb.net - 画像のサイズを変更して縦横比を維持する

Question

ズームイン/ズームアウトボタンを作成しようとしていますが、何らかの理由で、アスペクト比を維持して画像のサイズを変更する方法がわかりません-たとえば、90％または110％

問題は、ズームアウトボタンを4回クリックしてからズームインボタンを4回クリックすると、画像が元のサイズになるようにしようとしていることです。新しい幅を既存の幅の 90%/110% にしようとしているので、定義された幅はありませんが、明らかに 0.9 と 1.1 を掛けても正しくありません。

私は現在、次のコードを持っています..

    Dim source As New Bitmap(PictureBox1.Image)
    Dim NewWidth As Integer = source.Width * 0.9
    Dim NewHeight As Integer = NewWidth * (source.Height / source.Width)

どんな助けでも大歓迎です。私はそれをもう一度考えすぎていると確信していますが、いくつかのガイダンスをいただければ幸いです:)