[VB] Get Screenshot

[iiCE]

Simple Screenshot application.

Code: [Select]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Img As New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
        Dim g As Graphics = Graphics.FromImage(Img)
        g.CopyFromScreen(0, 0, 0, 0, Img.Size)

        Img.Save("image.jpg")

        g.Dispose()
        Me.Close()

    End Sub
End Class

Enjoy :-P