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

Public Function Insert(ByVal imageData As Byte(), ByVal imageType As String) As Integer<br />
  Dim cmdText As String = "INSERT INTO MyImages(Image, ImageType) VALUES(@image, @imageType) SELECT SCOPE_IDENTITY()"<br />
  Dim args(1) As SqlParameter<br />
  args(0) = New SqlParameter("@image", imageData)<br />
  args(1) = New SqlParameter("@imageType", imageType)<br />
<br />
  Try<br />
    Return CInt(SqlHelper.ExecuteScalar(ConnectionString, CommandType.Text, cmdText, args))<br />
  Catch ex As SqlException<br />
    ' do error handling<br />
    Throw<br />
  End Try<br />
End Function