Protected Sub BulletedList1_Click(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.BulletedListEventArgs) Handles BulletedList3.Click
Dim position As Integer = e.Index
Dim li As ListItem = BulletedList3.Items(position)
Label1.Text = "You selected = " & li.Text & _
", with value = " & li.Value
End Sub

哪位帮我解释下吗？3q

Dim position As Integer = e.Index
把索引值赋给position ，再添加到BulletedList3中（BulletedList3.Items(position)）

二楼兄弟说得对。