图片提亮速度很慢 请高手提示怎么提速

图片提亮速度很慢 请高手提示如何提速
经过 "greennetboy(我的老婆叫静静)   "的提示   修改了代码   已经有了明显的提速   但感觉比photoshop的还是慢   要是图片是1000*1000大约需要3-5秒   时间还是比较久
我已经给了100分

在100分   请   知道朋友   在提示提示

下面代码     注释的部分是老代码   上面的是新的   提速了很多    

还有没有在快的


        Private   Sub   Button6_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button6.Click
                If   Me.PictureBox1.Image   IsNot   Nothing   Then
                        '==================================================================================
                        Dim   A   =   10
                        Dim   AA   =   (A   /   (127   -   (A   /   2)))
                        Dim   AAA   =   (A   /   (127   +   (A   /   2)))
                        Dim   bmp   As   Bitmap   =   Me.PictureBox1.Image
                        Dim   rect   As   Rectangle   =   New   Rectangle(0,   0,   bmp.Width,   bmp.Height)
                        Dim   bmpdata   As   System.Drawing.Imaging.BitmapData   =   bmp.LockBits(rect,   System.Drawing.Imaging.ImageLockMode.ReadWrite,   bmp.PixelFormat)
                        Dim   ptr   As   IntPtr   =   bmpdata.Scan0
                        Dim   bytes   As   Integer   =   bmp.Width   *   bmp.Height   *   3
                        Dim   rgbvalues(bytes)   As   Byte
                        System.Runtime.InteropServices.Marshal.Copy(ptr,   rgbvalues,   0,   bytes)
                        '   Me.ProgressBar1.Maximum   =   rgbvalues.Length
                        For   counter   As   Integer   =   0   To   rgbvalues.Length   -   1
                                '           Me.ProgressBar1.Value   =   counter
                                If   rgbvalues(counter)   <   127   -   A   /   2   Then
                                        rgbvalues(counter)   =   rgbvalues(counter)   +   rgbvalues(counter)   *   AA
                                Else