Turning Up the Brightness in VB

[psuedonym]

Can someone please explain to me how the complier can manage to make sense
out of the following bit of nonsense ;-)

My Solution Name: Dim.sln
My Project Name: Dim.vbproj (Standard Console Application)
My File Name: Dim.vb (Standard class module)
Namespace [Dim]
' Class to manipulate brightness in VB
Class [Dim]
' Data member to keep brightness
Dim bDim As Boolean
' Entry Point to launch application
Shared Sub Main()
Dim [Dim] As New [Dim](Nothing)
If Not [Dim].Dim Then
Console.WriteLi ne("Bright")
Else
Console.WriteLi ne("Dim")
End If
End Sub
' Object Constructor
Sub New(ByVal [Dim] As [Dim])
If Not [Dim] Is Nothing Then
Me.Dim = [Dim].Dim
Else
Me.Dim = False
End If
End Sub
' Property to modify brightness
Property [Dim]() As Boolean
Get
Return bDim
End Get
Set(ByVal Value As Boolean)
bDim = Value
End Set
End Property
End Class
End Namespace

[Brian Henry]

the brackets help it a lot...

"psuedonym" <AN************ ***@cfl.rr.com> wrote in message
news:Oq******** ******@tk2msftn gp13.phx.gbl...

Can someone please explain to me how the complier can manage to make sense
out of the following bit of nonsense ;-)

My Solution Name: Dim.sln
My Project Name: Dim.vbproj (Standard Console Application)
My File Name: Dim.vb (Standard class module)
Namespace [Dim]
' Class to manipulate brightness in VB
Class [Dim]
' Data member to keep brightness
Dim bDim As Boolean
' Entry Point to launch application
Shared Sub Main()
Dim [Dim] As New [Dim](Nothing)
If Not [Dim].Dim Then
Console.WriteLi ne("Bright")
Else
Console.WriteLi ne("Dim")
End If
End Sub
' Object Constructor
Sub New(ByVal [Dim] As [Dim])
If Not [Dim] Is Nothing Then
Me.Dim = [Dim].Dim
Else
Me.Dim = False
End If
End Sub
' Property to modify brightness
Property [Dim]() As Boolean
Get
Return bDim
End Get
Set(ByVal Value As Boolean)
bDim = Value
End Set
End Property
End Class
End Namespace