codice:
Dim Screenshot As Bitmap
Screenshot = New Bitmap(My.Computer.Screen.WorkingArea.Width, _
                    My.Computer.Screen.WorkingArea.Height, _
                    Imaging.PixelFormat.Format32bppArgb)
            Dim g As Graphics = Graphics.FromImage(Screenshot)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), _
                    New Size(My.Computer.Screen.WorkingArea.Width, _
                     My.Computer.Screen.WorkingArea.Height))
            Screenshot.Save(locatedfile)
Funziona... ma mi taglia la parte in basso, avete presente la barra di windows 7?


Credo che sia a cause di "WorkingArea"