Определить, принадлежит ли точка только первому прямоугольнику, только второму или сразу обоим

Module Module1
 
    Sub Main()
        Dim x As Int32
        Dim y As Int32
        Console.Write("Введите координату x точки: ")
        x = Console.ReadLine()
        Console.Write("Введите координату y точки: ")
        y = Console.ReadLine()
        Dim tochka As New Point(x, y)
        Dim x1 As Int32
        Dim y1 As Int32
        Console.Write("Введите координату x верхней левой точки первого прямоугольника: ")
        x = Console.ReadLine()
        Console.Write("Введите координату y верхней левой точки первого прямоугольника: ")
        y = Console.ReadLine()
        Console.Write("Введите длинну первого прямоугольника: ")
        x1 = Console.ReadLine()
        Console.Write("Введите высоту первого прямоугольника: ")
        y1 = Console.ReadLine()
        x1 = x + x1
        y1 = y - y1
        Dim lv_tp1 As New Point(x, y)
        Dim pn_tp1 As New Point(x1, y1)
        Console.Write("Введите координату x верхней левой точки второго прямоугольника: ")
        x = Console.ReadLine()
        Console.Write("Введите координату y верхней левой точки второго прямоугольника: ")
        y = Console.ReadLine()
        Console.Write("Введите длинну второго прямоугольника: ")
        x1 = Console.ReadLine()
        Console.Write("Введите высоту второго прямоугольника: ")
        y1 = Console.ReadLine()
        x1 = x + x1
        y1 = y - y1
        Dim lv_tp2 As New Point(x, y)
        Dim pn_tp2 As New Point(x1, y1)
        If prin(tochka, lv_tp1, pn_tp1) And prin(tochka, lv_tp2, pn_tp2) Then
            Console.WriteLine("Точка принадлежит обоим прямоугольникам")
        ElseIf prin(tochka, lv_tp1, pn_tp1) Then
            Console.WriteLine("Точка принадлежит первому прямоугольнику")
        ElseIf prin(tochka, lv_tp2, pn_tp2) Then
            Console.WriteLine("Точка принадлежит второму прямоугольнику")
        Else
            Console.WriteLine("Точка не принадлежит ни одному ни другому прямоугольнику")
        End If
        Console.ReadLine()
    End Sub
 
    Function prin(ByVal t As Point, ByVal lv As Point, ByVal pn As Point) As Boolean
        If t.x < lv.x Or t.y > lv.y Or t.x > pn.x Or t.y < pn.y Then
            Return False
        Else
            Return True
        End If
    End Function
End Module

Class Point
    Dim xx As Int32
    Dim yy As Int32
 
    Public Property x As Int32
        Set(ByVal value As Int32)
            xx = value
        End Set
        Get
            Return xx
        End Get
    End Property
 
    Public Property y As Int32
        Set(ByVal value As Int32)
            yy = value
        End Set
        Get
            Return yy
        End Get
    End Property
 
    Public Sub New(ByVal x As Int32, ByVal y As Int32)
        xx = x
        yy = y
    End Sub
End Class