Visual Basic

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