Salut
à tester
Private Function Capturectrl() As Bitmap
Dim memoryImage As Bitmap
Dim memoryGraphics As Graphics
memoryImage = Nothing
dim bounds as rectangle
bounds = screen.primaryscreen.bounds
memoryGraphics = thectrl.CreateGraphics
memoryImage = New Bitmap( bounds.Width, bounds.Height, memoryGraphics)
memoryGraphics = Graphics.FromImage(memoryImage)
memoryGraphics.CopyFromScreen(0,0, Point.Empty, New Size(memoryImage.Width, memoryImage.Height), CopyPixelOperation.SourceCopy)
Return memoryImage
End Function