Problemas con aplicacion asp.net

[sematove]

Nada no consigo sacarlo, me da ahora este error.

Mensaje de error del compilador: BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.

Error de código fuente:



Línea 28: End Sub
Línea 29:
Línea 30: Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Línea 31: tbDni.Text = Calcular_NIF(resto, letra_NIF)
Línea 32: End Sub

Aqui dejo el codigo por si alguien quiere echarle un vistazo.

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls



Public Class primera : Inherits Page

Public lbMensaje1 As Label

Dim resto As Integer
Dim letra_NIF As Integer


Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)
lbMensaje1.Text = "Aplicacion Dni ASP.NET"


End Sub



Protected Sub Calcular_NIF(ByVal sender As Object, ByVal e As System.EventArgs)


End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
tbDni.Text = Calcular_NIF(resto, letra_NIF)
End Sub


Protected Function Calcular_NIF(ByVal tbDni As String, ByVal retornoLetra As Boolean) As String
Dim resto As Integer
Dim letra_NIF As String
letra_NIF = ""
If tbdni = "" Then
MsgBox("No se ha introducido datos", MsgBoxStyle.Information)
Calcular_NIF = ""
Exit Function
ElseIf Len(tbDni) < 7 Then
MsgBox("No se puede calcular el NIF porque faltan dígitos", MsgBoxStyle.Information)
Calcular_NIF = ""
Exit Function
ElseIf Not IsNumeric(tbDni) Then
MsgBox("El dato introducido no es numérico", MsgBoxStyle.Information)
Calcular_NIF = ""
Exit Function
Else
resto = Val(tbDni) Mod 23
Select Case resto
Case 0
letra_NIF = "T"
Case 1
letra_NIF = "R"
Case 2
letra_NIF = "W"
Case 3
letra_NIF = "A"
Case 4
letra_NIF = "G"
Case 5
letra_NIF = "M"
Case 6
letra_NIF = "Y"
Case 7
letra_NIF = "F"
Case 8
letra_NIF = "P"
Case 9
letra_NIF = "D"
Case 10
letra_NIF = "X"
Case 11
letra_NIF = "B"
Case 12
letra_NIF = "N"
Case 13
letra_NIF = "J"
Case 14
letra_NIF = "Z"
Case 15
letra_NIF = "S"
Case 16
letra_NIF = "Q"
Case 17
letra_NIF = "V"
Case 18
letra_NIF = "H"
Case 19
letra_NIF = "L"
Case 20
letra_NIF = "C"
Case 21
letra_NIF = "K"
Case 22
letra_NIF = "E"

End Select
If retornoLetra = True Then
Return letra_NIF
Else
Return tbDni.Text & letra_NIF
End If

Exit Function
End If

End Function



End Class