ASP Net Controls ASP.Net Tutorial

<%@ Page Language="VB" %>

   sub ChangeNames(Sender as Object, e as EventArgs)
      if rlSex.SelectedIndex = 0 then
         'female
         lbNames.Items(0).Text = "A"
         lbNames.Items(1).Text = "B"
         lbNames.Items(2).Text = "C"
         lbNames.Items(3).Text = "D"
      else
         'male
         lbNames.Items(0).Text = "E"
         lbNames.Items(1).Text = "F"
         lbNames.Items(2).Text = "G"
         lbNames.Items(3).Text = "H"
      end if
   end sub
   
   sub DisplayMessage(Sender as Object, e as EventArgs)
      lblMessage.Text = Sender.SelectedItem.Text & _
         " is a wonderful name!"
   end sub


   
      
      
      Choose the sex of your baby:
               OnSelectedIndexChanged="ChangeNames"
         AutoPostBack="true" >
         Female
         Male
      
      
      Possible names:

               OnSelectedIndexChanged="DisplayMessage"
         AutoPostBack="true" >