Программирование алгоритмов разветвляющейся структуры - VB

Формулировка задачи:

Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной области. Помогите составить в Visual Basic

Решение задачи: «Программирование алгоритмов разветвляющейся структуры»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Caption = IIf(Inner(X, Y), "ГЏГ°ГҐГ*Г*Г¤Г«ГҐГ¦ГЁГІ", "ГЌГҐ ГЇГ°ГЁГ*Г*Г¤Г«ГҐГ¦ГЁГІ")
End Sub
Private Sub Form_Load()
    AutoRedraw = True: cls
    Scale (0, 5)-(5, 0)
    Line (1, 5)-(1, 1): Line -(5, 1): Line -(1, 5)
    Circle (2, 2), 1, , , , ScaleY(ScaleHeight, ScaleMode, vbTwips) / ScaleX(ScaleWidth, ScaleMode, vbTwips)
End Sub
Private Function Inner(ByVal X As Single, ByVal Y As Single) As Boolean
    Inner = X >= 1 And Y >= 1 And (X <= 5 And Y <= 6 - X) And ((X - 2) ^ 2 + (Y - 2) ^ 2) >= 1
End Function
                        