Visual Basic

Imports System.ComponentModel<br />
Imports System.Reflection<br />
<br />
Private Function GetContentTypeValue(ByVal value As Colours) As String<br />
     Dim fi As FieldInfo = value.GetType.GetField(value.ToString)<br />
     Dim attributes As DescriptionAttribute() = CType(fi.GetCustomAttributes(GetType(DescriptionAttribute), False), DescriptionAttribute())<br />
     If attributes.Length > 0 Then<br />
          Return attributes(0).Value<br />
     Else<br />
          Return String.Empty<br />
     End If<br />
End Function

<font color="blue">Private</font> <font color="blue">Sub</font> Button1_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button1.Click
        <font color="blue">Dim</font> id <font color="blue">As String</font> = System.Environment.UserName & Chr(10) & System.Environment.UserDomainName
        MessageBox.Show(id)
    <font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Button3_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button3.Click
        <font color="blue">Dim</font> wp <font color="blue">As</font> WindowsPrincipal
        wp = <font color="blue">New</font> WindowsPrincipal(WindowsIdentity.GetCurrent())

        MsgBox(wp.Identity.Name.ToString)

    <font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }