Visual Basic

<font color="blue">Public</font> <font color="blue">Enum</font> Colours
        BrightRed = 0
        BrightYellow = 1
        Horrible = 2
    <font color="blue">End</font> <font color="blue">Enum</font>

    <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> c <font color="blue">As</font> Colours
        MessageBox.Show(GetColours(c.BrightRed))
    <font color="blue">End</font> <font color="blue">Sub</font>

    <font color="blue">Public</font> <font color="blue">Function</font> GetColours(<font color="blue">ByVal</font> i <font color="blue">As Integer</font>) <font color="blue">As String</font>
        <font color="blue">Dim</font> clr <font color="blue">As</font> Colours
        <font color="blue">Select Case</font> i <font color="darkgreen">'/// numerical value of the colour.</font>
            <font color="blue">Case</font> clr.BrightRed
                <font color="blue">Return</font> "you chose BrightRed" <font color="darkgreen">'/// show the colour you chose.</font>
            <font color="blue">Case</font> clr.BrightYellow
                <font color="blue">Return</font> "you chose BrightYellow"
            <font color="blue">Case</font> clr.Horrible
                <font color="blue">Return</font> "you chose Horrible"
        <font color="blue">End Select</font>

    <font color="blue">End</font> <font color="blue">Function</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>;
    }
    }

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>;
    }
    }