One guy asked a question on discussion forums about how to draw transparent images? A transparent image is an image, which you can see through. To test this, you draw some graphics shapes on a surface and draw image on top of those shapes and you should be able to see the shapes.

Any way, the answer of the question was Alpha Blending. Alpha blending is a process of mixing colors and generating a transparent affect. Figure 1 and Figure 2 are very common examples of alpha blending. In Figure 1, few transparent graphics shapes are are drawn on top of a photo and in Figure 2, photo is on top of shapes.

In GDI+, a color (ARGB) is represented by four components - Alpha, red, green and blue. The Alpha component of a color represents the transparency of a color. The value of each of these components is varies from 0 to 255. For alpha component, value 0 means full transparency and 255 means opaque. So basically you create a color with transparency affect and use that color to draw graphics shapes and images.

The code listed in Listing 1 creates few Color objects using alpha transparency and uses the Color objects to create Pen or Brush object, which later are used to draw shapes. Make sure you change the jpg file name.

Note: You can write this code on a form load, on paint event handler, a button click event handler or a menu item click event handler.

Dim g As Graphics = Me.CreateGraphics()
g.Clear(Me.BackColor)
' Draw an image
Dim curImage As Image = Image.FromFile("")
g.DrawImage(curImage, 0, 0, curImage.Width, curImage.Height)
' Create pens and a rectangle
Dim rect As New Rectangle(220, 30, 100, 50)
Dim opqPen As New Pen(Color.FromArgb(255, 0, 255, 0), 10)
Dim transPen As New Pen(Color.FromArgb(128, 255, 255, 255), 10)
Dim totTransPen As New Pen(Color.FromArgb(40, 0, 255, 0), 10)
' Draw lines, rectangle, ellipse and string
g.DrawLine(opqPen, 10, 10, 200, 10)
g.DrawLine(transPen, 10, 30, 200, 30)
g.DrawLine(totTransPen, 10, 50, 200, 50)
g.FillRectangle(New SolidBrush(Color.FromArgb(40, 0, 0, 255)), rect)
rect.Y += 60
g.FillEllipse(New SolidBrush(Color.FromArgb(50, 255, 255, 255)), rect)
Dim semiTransBrush As New SolidBrush(Color.FromArgb(90, 255, 255, 50))
g.DrawString("Some Photo " + ControlChars.Lf + "Date: 04/09/2001", New Font("Verdana", 14), semiTransBrush, New RectangleF(20, 100, 300, 100))
' Dispose
g.Dispose()