Buenas chicos,

Ando empezando en esto de vb.net y tratando de resolver un ejercicio me surgio el siguiente problema.

El ejercicio en cuestion pide que el usuario, a traves de dos TextBox, ingrese dos numeros (Que representarian el valor en el eje X y en el Y) y que devuelva en que cuadrante se encuentra el punto y cual es la distancia al origen de coordenadas (0;0).

El codigo que tengo (Incompleto todavia, pero no lo puedo continuar por este error) es este:

Imports System.Math
Public Class frmCOOR
    Private Sub frmCOOR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Declaracion de las variables
        Dim douX As Double = Val(txtX.Text)
        Dim douY As Double = Val(txtY.Text)
    End Sub
    ' Declaracion de la funcion que calcula la distancia a (0;0)
    Function distancia(ByVal cat1 As Double, ByVal cat2 As Double) As Double
        Return Math.Sqrt((cat1 ^ 2) + (cat2 ^ 2))
    End Function
    Private Sub btCAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCAL.Click
        If douX = 0 And douY = 0 Then
            [...]
        End If
    End Sub
End Class

El error esta en que cuando hago la condicion dentro de btCAL_Click, me dice que ninguno de los dos nombres de las variables han sido declarados.

Me han dicho dos formas posibles para solucionarlo, aunque ninguna me dio resultados.

Una seria declarando las variables dentro de Public Class frmCOOR, pero al hacer eso me da el siguiente error:


Y (La otra forma) seria cambiando los procedimientos a Public, pero al hacer eso me sigue diciendo que los nombres de las variables no estan definidos.

Un saludo y espero que me puedan ayudar

PD: Esto me pasa por querer hacer cosas que todavia no aprendi

Muchas gracias por el manual D4N93R

Respecto al tema del hilo, ya esta solucionado.

Un saludo