1
2
3
4
5
6
7
|
Public Function CaptureScreen() As Bitmap
Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.CopyFromScreen(0, 0, 0, 0, b.Size)
g.Dispose()
Return b
End Function
|