05/07/20 17:16:06
C♯相談室 Part11 の856にありました。
URLﾘﾝｸ(pc5.2ch.net)
Dim scale As Single = Math.Min(1F, Math.Min(pictureBox1.Width / CSng(bmp.Width), pictureBox1.Height / CSng(bmp.Height)))
pictureBox1.Image = New Bitmap(bmp, New Size(CInt(bmp.Width * scale), CInt(bmp.Height * scale)))
で無事解決しました。
お騒がせしました。