Copie de l'écran en cours

Bonjour,

j'ai regardé dans l'aide de .NET 2005 et il me donne le code suivant, mais
il contient des erreurs(me.creategraphics par exemple), avez vous deja reussi
a faire fonctionner ce code? merci d'avance

Public Class Form1
Inherits Encodage
Private WithEvents printButton As New Button
Private WithEvents printDocument1 As New PrintDocument

Public Sub New()
printButton.Text = "Print Form"
Me.Controls.Add(printButton)
End Sub

Dim memoryImage As Bitmap

Private Sub CaptureScreen()
Dim myGraphics As Graphics = Me.CreateGraphics
Dim s As Size = Me.Size
memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)
End Sub

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
printDocument1.PrintPage
e.Graphics.DrawImage(memoryImage, 0, 0)
End Sub

Private Sub printButton_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles printButton.Click
CaptureScreen()
printDocument1.Print()
End Sub

Public Shared Sub Main()
Application.Run(New Form1())
End Sub
End Class