Me.Hide()
 
 
 
 
            Dim oBitmap As New Bitmap(Me.Width, Me.Height, _
              Imaging.PixelFormat.Format24bppRgb)
 
 
 
            Using g As Graphics = Graphics.FromImage(oBitmap)
                g.CopyFromScreen(0, 0, 0, 0, New Size(Me.Width, Me.Height))
 
                Form1.PictureBox1.BackgroundImage = oBitmap.Clone
 
 
                'Clipboard.SetImage(oBitmap.Clone)
 
 
                'oBitmap.Save("d:\temp\screenshot.jpg", 
                ' Imaging.ImageFormat.Jpeg)
            End Using
 
            ' Bitmap-Objekt freigeben
            oBitmap.Dispose()

** Meine Seite: http://vbworld.forumprofi.de/admin/index.php **