请高手答疑：如何保存PICTUREBOX包括label、shape、line的图片

等待高手出现

保存之后下次是否仍需要恢复成保存前的状态，还是只需将里面的东西保存成图片即可？

Private Sub Save_Picture(objPictureBox As PictureBox)
Set pb = Me.Controls.Add("VB.PictureBox", "pBox")
With pb
.Width = objPictureBox.Width
.Height = objPictureBox.Height
.AutoRedraw = True
End With
Call BitBlt(pb.hDC, 0&, 0&, pb.Width / 15, pb.Height / 15, objPictureBox.hDC, 0&, 0&, vbSrcCopy)
Call SavePicture(pb.Image, "c:\1.bmp")
Call Me.Controls.Remove("pBox")
End Sub

自行百度API PrintWindow 没问题 可以复制里面的控件 Bitblt是不管用滴