PicTemp.Image = Frm_main.PictureBox2.Image
        Dim SngPer As Single = 4 '放大或缩小的比例
        Dim PicNew As New System.Drawing.Bitmap(PicTemp.Image, PicTemp.Width * SngPer, PicTemp.Height * SngPer)
        PictureBox2.Image = PicNew

我是新手，看热闹的。

我也是看热闹！嘿嘿

我也是看热闹！嘿嘿

大概是原图片尺寸太小，分辩率太低的原故吧。

图像本身的像素分辨率也有影响