Private Sub Command1_Click()
X = Val(Text1.Text)
Y = Val(Text2.Text)
X1 = Val(Text3.Text)
X2 = Val(Text4.Text)
Y1 = Val(Text5.Text)
Y2 = Val(Text6.Text)
If (X2 < X1) Then
Label11.Caption = X2
Label9.Caption = X1
Else
Label11.Caption = X1
Label9.Caption = X2
End If
If (Y2 > Y1) Then
Label12.Caption = Y1
Label10.Caption = Y2
Else
Label12.Caption = Y2
Label10.Caption = Y1
End If
If (X > Label11.Caption) And (X < Label9.Caption) And (Y > Label12.Caption) And (Y < Label10.Caption) Then
Label7.Caption = "Точка входит"
Else
Label7.Caption = "Точка не входит"
End If
End Sub