Problemas con aplicacion asp.net

[sematove]

Sigue dandome 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 23:
Línea 24:
Línea 25: Protected Sub btEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
Línea 26: Calcular_NIF(resto, letra_NIF)
Línea 27: End Sub

Aqui te dejo el codigo por si lo quieres mirar y dejalo que ya es tarde.

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



Public Class primera : Inherits Page

Public lbMensaje1 As Label

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 btEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
Calcular_NIF(resto, letra_NIF)
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