errores al generar aplicacion

Estoy desarrollando una aplicacion donde calculo la cantidad que se debe
pagar a un prestamo utilizando la funcion Pmt(), y el generador detecta una
serie de errores que acontinuacion muestro:

Private Sub TextBoxCantidadPrestada_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
TextBoxCantidadPrestada.TextChanged
If IsNumeric(TextBoxCantidadPrestada) Then
Cantidad = TextBoxCantidadPrestada
Else
MsgBox("Ingrese un valor numerico", vbCritical, "entrada de
datos erroneo")
TextBoxCantidadPrestada.SelectionStart = 0
TextBoxCantidadPrestada.SelectionLength =
Len(TextBoxCantidadPrestada)
cancel = True

End If
End Sub

Aqui en la linea donde fifura:

Cantidad = TextBoxCantidadPrestada

manifiesta el compilador que Un valor de tipo 'System.Windows.Forms.TextBox'
no se puede convertir en '2'.

y en la linea donde figura:

cancel = True

manifiesta el compilador que No se ha declarado el nombre 'cancel'.

SIENDO TODAS ESTAS LAS DECLARACIONES:

Dim Pagos As Double
Dim TipoInteres As Single
Dim duracion As Integer, Cantidad As Integer



Aqui en chkPagoanticipado manifiesta el compilador que no se ha declarado
"chkpagoanticipado"

Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonCalcular.Click
REM devuelve un tipo double que indica el pago de una anualidad
REM basada en pagos periodicos constantes con un tipo de interes
REM tambien constante
Pagos = Pmt(TipoInteres, duracion, -Cantidad, 0,
chkPagoanticipado.value)
MsgBox(Format$(Pagos, "#.00"), vbInformation, "Total de pagos")

End Sub
End Class


Private Sub TextBoxTipoInteres_TextChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles TextBoxTipoInteres.TextChanged
If IsNumeric(TextBoxTipoInteres) Then
TipoInteres = 0.01 * TextBoxTipoInteres / 12


Aqui el compilador manifiesta que El operador '*' no está definido para los
tipos 'Double' y 'System.Windows.Forms.TextBox'.


Disculpen lo extenso que he sido asi que lo dejo a su criterio las
correcciones del caso muchas gracias.