Visual Basic

<br />
' Should return the uppercase value of whatever key ' was pressed<br />
Dim key As Char = UCase(e.KeyChar)<br />

BOOL SetWindowPos(
  HWND hWnd,             // handle to window
  HWND hWndInsertAfter,  // placement-order handle
  int X,                 // horizontal position
  int Y,                 // vertical position
  int cx,                // width
  int cy,                // height
  UINT uFlags            // window-positioning options
);

Dim sValue as String = chkcomm.SelectedValue

Dim i as Integer
For i = 0 to chkcomm.Items.Count - 1
    If chkcomm.Items(i).Selected Then
        '... do something with the selected item...
    End If
Next

Imports System.Web.Mail
 
Sub SendAMessage(sSendTo as string, sSubject as string, sBody as string)
    Dim mm as MailMessage = new MailMessage()
    
    '--set message properties
    mm.From    = "me@mycompany.com"
    mm.To      = sSendTo
    mm.Subject = sSubject
    mm.Body    = sBody
     
    '--set the SMTP server that will handle the outgoing message
    SmtpMail.SmtpServer = "mycompany.com"
     
    '--send the message
    SmtpMail.Send(mm)
     
End Sub

Public Sub SendAMessage(sLocation as string)
    dim Message As MailMessage = New MailMessage
    Message.From = "postmaster@test.net"
    Message.To = "me@test.net"
    Message.Cc = "you@test.net"
    Message.Bcc = "us@test.net"
     
    '--set subject and body depending on the location
    Message.Subject = sLocation
    Message.Body = string.Format( _
      "There is a new {0} Form that was submitted.  " & _
      "Please click on the following link:  " & _
      "http://test/testfolder/continents/Main.aspx", _
      sLocation)
       
    Try
        SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
        SmtpMail.Send(Message)
    Catch ex As Exception
        'do something with the error...
        '... also, make sure to look at the
        '... InnerException property; in the case
        '... of mail exceptions, often InnerException
        '... will give some better information of
        '... what is going wrong
        dim innerEx as Exception = ex.InnerException
        if not (innerEx is nothing) then
            '--inspect the innerEx message... 
            '-- perhaps write out to the log            
        end if        
    End Try
End Sub

Public Sub InspectLocationAndSend()
    '--get the value of the selected radio button
    '-- this assumes the value is the desired location, like 'Europe'.
     
    dim sLocation as string = myRadioButtonList.SelectedValue
     
    '--Now call the sub that actually constructs and sends the message,
    '  based on the location
     
    SendAMessage(sLocation)
     
End Sub