vb.net 后台窗体截图

<DllImport("User32.dll", SetLastError:=True)>
Public Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hdc As IntPtr, ByVal nFlags As UInteger) As Integer
End Function

 

Dim bitmap01 As Bitmap
Dim g01 As Graphics

Try
  bitmap01 = New Bitmap(1872, 909)  ’要截图的目标窗体尺寸
  g01 = Graphics.FromImage(bitmap01)
  PrintWindow(Hwd_01, g01.GetHdc, 0)  ‘hwd_01  为目标窗体的hwd句柄
  g01.ReleaseHdc()
  Form3.PictureBox1.Image = bitmap01  
Catch ex As Exception
End Try