sub DataList1_ItemCommand(obj as object, e as _
     DataListCommandEventArgs)
     DataList1.SelectedIndex = e.Item.ItemIndex
     DataList1.DataBind()
  end sub