picturebox里好像不能放多个图像吧 如果你说的是截取picture1中图像的某个部分在picture2里显示，就用下面的代码，你的要求好像就是截取自己程序内部的图像，根本不需要用到API放两个picturebox到窗体，picture1里先装入一张图片Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) With Picture2 .PaintPicture Picture1.Picture, 0, 0, , , X - .ScaleWidth \ 2, Y - .ScaleHeight \ 2, .ScaleWidth, .ScaleHeight End With End Sub运行，鼠标在picture1里移动，鼠标周围的区域会被复制到picture2中
如果你说的是截取picture1中图像的某个部分在picture2里显示，就用下面的代码，你的要求好像就是截取自己程序内部的图像，根本不需要用到API放两个picturebox到窗体，picture1里先装入一张图片Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture2
.PaintPicture Picture1.Picture, 0, 0, , , X - .ScaleWidth \ 2, Y - .ScaleHeight \ 2, .ScaleWidth, .ScaleHeight
End With
End Sub运行，鼠标在picture1里移动，鼠标周围的区域会被复制到picture2中