Capturar Screenshot (print) da tela com VB.Net

Dim caminho As String = "caminho onde o print será salvo"

Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = FromImage(screenGrab)

g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
screenGrab.Save(caminho & "Print" &.jpg", Imaging.ImageFormat.Jpeg)

Compartilhe!