void getSelected ( Object src, DataListCommandEventArgs e ) {
   myList.SelectedIndex = e.Item.ItemIndex;
   populateList ( );
   msg.Text = "The item selected is <b>" + 
    ( ( Label ) myList.SelectedItem.FindControl ( "title" ) ).Text + "</b>";
}

void chgBackColor ( Object src, EventArgs e ) { 
   if ( myList.SelectedItem != null ) {
      myList.SelectedItem.BackColor = System.Drawing.Color.Khaki;
   }
}

Sub getSelected ( src As Object, e As DataListCommandEventArgs )
   myList.SelectedIndex = e.Item.ItemIndex
   populateList ( )
   msg.Text = "The item selected is <b>" + _
      CType ( myList.SelectedItem.FindControl ( "title" ), Label ).Text + "</b>"
End Sub

Sub chgBackColor ( src As Object, e As EventArgs )
   If Not ( myList.SelectedItem Is Nothing ) Then
      myList.SelectedItem.BackColor = System.Drawing.Color.Khaki
   End If
End Sub