Problemas con aplicacion asp.net

[sematove]

Nada que no consigo sacarlo, sigue dandome 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 26:
Línea 27:
Línea 28: Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnApprove.Click
Línea 29: tbDni = Calcular_NIF(resto, letra_NIF)
Línea 30: End Sub

dejo el codigo por si alguien quiere echarle un vistazo, lo que estoy viendo que asp.net es complicado para hacer una aplicacion tan pequeña como es poner un textbox y un boton.

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
Dim tbDni As String


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


End Sub





Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnApprove.Click
tbDni = 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 = Integer.Parse(tbDni)
Dim letra_NIF As String = Integer.Parse(retornoLetra)
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 & letra_NIF
End If

Exit Function
End If

End Function



End Class