Public Sub New ( _
    x As Integer, _
    y As Integer, _
    width As Integer, _
    height As Integer _
)

Dim x As Integer
Dim y As Integer
Dim width As Integer
Dim height As Integer

Dim instance As New Rectangle(x,
 y, width, height)

public Rectangle (
    int x,
    int y,
    int width,
    int height
)

public:
Rectangle (
    int x, 
    int y, 
    int width, 
    int height
)

public Rectangle (
    int x, 
    int y, 
    int width, 
    int height
)

public function Rectangle (
    x : int, 
    y : int, 
    width : int, 
    height : int
)

Private Sub InstanceRectangleIntersection(
 _
    ByVal e As PaintEventArgs)

    Dim rectangle1 As New
 Rectangle(50, 50, 200, 100)
    Dim rectangle2 As New
 Rectangle(70, 20, 100, 200)
  
    e.Graphics.DrawRectangle(Pens.Black, rectangle1)
    e.Graphics.DrawRectangle(Pens.Red, rectangle2)

    If (rectangle1.IntersectsWith(rectangle2)) Then
        rectangle1.Intersect(rectangle2)
        If Not (rectangle1.IsEmpty) Then
            e.Graphics.FillRectangle(Brushes.Green, rectangle1)
        End If
    End If
End Sub

private void InstanceRectangleIntersection(PaintEventArgs
 e)
{

    Rectangle rectangle1 = new Rectangle(50, 50, 200, 100);
    Rectangle rectangle2 = new Rectangle(70, 20, 100, 200);

    e.Graphics.DrawRectangle(Pens.Black, rectangle1);
    e.Graphics.DrawRectangle(Pens.Red, rectangle2);

    if (rectangle1.IntersectsWith(rectangle2))
    {
        rectangle1.Intersect(rectangle2);
        if (!rectangle1.IsEmpty)
        {
            e.Graphics.FillRectangle(Brushes.Green, rectangle1);
        }
    }
}

private:
   void InstanceRectangleIntersection( PaintEventArgs^ e )
   {
      Rectangle rectangle1 = Rectangle(50,50,200,100);
      Rectangle rectangle2 = Rectangle(70,20,100,200);
      e->Graphics->DrawRectangle( Pens::Black, rectangle1 );
      e->Graphics->DrawRectangle( Pens::Red, rectangle2 );
      if ( rectangle1.IntersectsWith( rectangle2 ) )
      {
         rectangle1.Intersect( rectangle2 );
         if (  !rectangle1.IsEmpty )
         {
            e->Graphics->FillRectangle( Brushes::Green, rectangle1 );
         }
      }
   }

Public Sub New ( _
    location As Point, _
    size As Size _
)

Dim location As Point
Dim size As Size

Dim instance As New Rectangle(location,
 size)

public Rectangle (
    Point location,
    Size size
)

public:
Rectangle (
    Point location, 
    Size size
)

public Rectangle (
    Point location, 
    Size size
)

public function Rectangle (
    location : Point, 
    size : Size
)

<SerializableAttribute> _
<ComVisibleAttribute(True)> _
Public Structure Rectangle

Dim instance As Rectangle

[SerializableAttribute] 
[ComVisibleAttribute(true)] 
public struct Rectangle

[SerializableAttribute] 
[ComVisibleAttribute(true)] 
public value class Rectangle

/** @attribute SerializableAttribute() */ 
/** @attribute ComVisibleAttribute(true) */ 
public final class Rectangle extends ValueType

JScript では、構造体を使用できますが、新規に宣言することはできません。