我这样修改后,得出的图片不对
Private Sub Command1_Click()
Set Picture1.Picture = CaptureScreen()
Picture2.PaintPicture Picture1.Picture, 0, 0
'复制图像
'调整目标大小
Picture2.Height = Picture1.Picture.Height - 240 '减去空的下边高度
Picture2.Width = Picture1.Picture.Width
SavePicture Picture2.Image, "D:\1.bmp"
'保存图像