Dim li As New ListItem

    li.Attributes.Add("onmouseover", "javascript:this.style.color='Red';this.style.cursor='pointer';")
    li.Attributes.Add("onmouseout", "javascript:this.style.color='Black';")
    li.Text = "Voce Test"
    BulletedList1.Items.Add(li)