Visual Basic

<br />
        Protected Overrides Sub OnPaint(ByVal pe As PaintEventArgs)<br />
            MyBase.OnPaint(pe)<br />
            Dim g As Graphics = Me.CreateGraphics()<br />
            g.Clear(Me.BackColor)<br />
<br />
            '-------------------call image from resources ---------<br />
            Dim myAssembly As System.Reflection.Assembly<br />
            myAssembly = Me.GetType.Assembly<br />
<br />
<br />
            ' Creates the ResourceManager.<br />
            Dim myManager As New _<br />
               System.Resources.ResourceManager("PictureResizer.Images", _<br />
               myAssembly)<br />
<br />
            Dim myImage As System.Drawing.Image<br />
            myImage = CType(myManager.GetObject("flipccw"), _<br />
                System.Drawing.Image)<br />
            '----------------------------------------------<br />
            Dim bitmap As Bitmap = New Bitmap(myImage)<br />
            Dim clrMatrix As ColorMatrix = _<br />
                      New ColorMatrix(New Single()() _<br />
                           {New Single() {1, 0, 0, 0, 0}, _<br />
                            New Single() {0, 1, 0, 0, 0}, _<br />
                            New Single() {0, 0, 1, 0, 0}, _<br />
                            New Single() {0, 0, 0, 0.5F, 0}, _<br />
                            New Single() {0, 0, 0, 0, 1}})<br />
<br />
            Dim imgAttributes As ImageAttributes = New ImageAttributes()<br />
            imgAttributes.SetColorMatrix(clrMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)<br />
<br />
            g.DrawImage(bitmap, New Rectangle(0, 0, Me.Width, Me.Height), _<br />
            0, 0, bitmap.Width, bitmap.Height, _<br />
            GraphicsUnit.Pixel, imgAttributes)<br />
            ' Dispose<br />
            g.Dispose()<br />
<br />
            'imgAttributes.SetColorMatrix(clrMatrix,<br />
            'ColorMatrixFlag.Default,<br />
            'ColorAdjustType.Bitmap);<br />
<br />
        End Sub<br />