' ptinrect.vb

Imports System
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
Structure POINT
  Public x As Integer
  Public y As Integer
End Structure

<StructLayout(LayoutKind.Sequential)> _
Structure RECT
  Public left As Integer
  Public top As Integer
  Public right As Integer
  Public bottom As Integer
End Structure

Class PointInRect
  <DllImport("user32.dll")> _
  Private Shared Function PtInRect _
    (ByRef r As Rect, ByVal p As Point) As Boolean
  End Function

  Private Shared Function ReadValue(ByVal prompt As String) As Integer
    Console.Write(prompt + " = ")
    Return Int32.Parse(Console.ReadLine())
  End Function

  Public Shared Sub Main()
    Dim r As RECT, p As POINT
    p.x      = ReadValue("点のｘ座標")
    p.y      = ReadValue("点のｙ座標")
    r.left   = ReadValue("長方形の左上隅のｘ座標")
    r.top    = ReadValue("長方形の左上隅のｙ座標")
    r.right  = ReadValue("長方形の右下隅のｘ座標")
    r.bottom = ReadValue("長方形の右下隅のｙ座標")

    If PtInRect(r, p) Then
      Console.WriteLine("内側")
    Else
      Console.WriteLine("外側")
    End If
  End Sub
End Class

' コンパイル方法: vbc ptinrect.vb