SoloCodigo

Hola compañeros, necesito realizar una pequeña clase de controles
para imágenes pero me están haciendo falta los efectos de Brillo
y Contraste. Si alguno me ayudara se lo agradecería. Para el Brillo
estoy usando este Proceso pero me da un error  de "Memoria Insuficiente"
Gracias de ante mano.

 ''' <summary>
    ''' Proceso que Cambia Brillo de la Imagen
    ''' (PictureBox)
    ''' </summary>
    Public Sub Brillo(ByVal pic As PictureBox, ByVal valor As Single)
    Dim _image as Image
        _image = pic.Image

        Dim g As Graphics
        Dim r As Rectangle
        Dim v As Single = valor / 100

        pic.Image = New Bitmap(pic.Width, pic.Height, PixelFormat.Format32bppArgb)
        g = Graphics.FromImage(pic.Image)
        r = New Rectangle(0, 0, pic.Width, pic.Height)
        g.DrawImage(_image, r)

        Dim colorMatrixVal 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() {v, v, v, 0, 1}}

        Dim colorMatrix As New ColorMatrix(colorMatrixVal)
        Dim ia As New ImageAttributes

        ia.SetColorMatrix(colorMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
        g.DrawImage(_image, r, 0, 0, _image.Width, _image.Height, GraphicsUnit.Pixel, ia)
        pic.Refresh()

    End Sub