Sub Page_Load()
If Not Page.IsPostBack Then
txtBoxEvent.Attributes.Add("onfocus", Page.ClientScript.GetPostBackClientHyperlink(lbClickEvent, "", False))
End If
End Sub
Sub launchServerEvent(ByVal sender As Object, ByVal e As EventArgs)
lblMessage.Text = "I Did it with JavaScript!"
'Endless loop if you enable below!
'SetFocus(txtBoxEvent)
End Sub