Необходимо определить область, которой принадлежит точка - VB

Option Explicit
 
Private Sub Form_Load()
    Scale (-1, 7)-(11, -1): AutoRedraw = True
    Line (0, 7)-(10, 0), vbBlue, B: Line (1, 7)-(3, 3): Line -(7, 4): Line -(10, 0): Line (0, 0)-(3, 3): Line (7, 4)-(10, 7)
End Sub
 
Private Function Region(X As Single, Y As Single) As Long
    Select Case True
    Case X < 0 Or Y < 0 Or X > 10 Or Y > 10: Region = 0
    Case IIf(Y <= 3, X - Y <= 0, 9 - X * 2 - Y > 0): Region = 1
    Case IIf(Y <= 4, 13.33 - X * 1.33 - Y < 0, X - 3 - Y > 0): Region = 3
    Case 2.25 + X * 0.25 - Y < 0: Region = 4
    Case Else: Region = 2
    End Select
End Function
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Caption = Region(X, Y)
End Sub