"I have declared namespaces as follows
Imports System.Drawing
Imports System.Drawing.Graphics
Imports system.Drawing.Drawing2D
Imports System.Windows.Forms.Control

"in the following code below first line shows an above error"

Public Sub FillRegionRectangle(ByVal e As PaintEventArgs)

        ' Create solid brush.
        Dim blueBrush As New SolidBrush(Color.Blue)

        ' Create rectangle for region.
        Dim fillRect As New Rectangle(100, 100, 200, 200)

        ' Create region for fill.
        Dim fillRegion As New [Region](fillRect)

        ' Fill region to screen.
        e.Graphics.FillRegion(blueBrush, fillRegion)
    End Sub

[Edited by muddassir on 24-08-2008 at 06:23 AM GMT]

The code works as it should. How did you call this sub? You used ByVal e As PaintEventArgs.
To test it i used the form paint event.
The vbcode tags did not work.
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        FillRegionRectangle(e)
    End Sub


[Edited by WayneSpangler on 03-09-2008 at 06:19 PM GMT]

____________________________
I know enough to be dangerious.