DrawImage in picturebox

'Create a Graphics object
Dim g As Graphics = Me.CreateGraphics()
g.Clear(Me.BackColor)
'Create a Bitmap object
Dim curBitmap As New Bitmap(PictureBox1.Image )
'Color matrix elements
Dim ptsArray As Single()() = {New Single() {1, 0, 0, 0, 0}, New Single() {0, 1, 0, 0, 0}, New Single() {0, 0, 1, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {41.22F, 29.0F, 0.0F, 0.0F, 1}}
'Create a ColorMatrix object
Dim clrMatrix As New ColorMatrix(ptsArray)
'Create image attributes
Dim imgAttribs As New ImageAttributes()
'Set color matrix
imgAttribs.SetColorMatrix(clrMatrix, ColorMatrixFlag.[Default], ColorAdjustType.[Default])
'Draw image with no effects
g.DrawImage(curBitmap, 0, 0, 200, 200)
'Draw image with image attributes
g.DrawImage(curBitmap, New Rectangle(205, 0, 200, 200), 0, 0, curBitmap.Width, curBitmap.Height, _
 GraphicsUnit.Pixel, imgAttribs)
'Dispose of objects
curBitmap.Dispose()
g.Dispose()