[Visual Basic 6.0]
' The example shows how to move an Envelope to a new 
' center point (pPoint). 

Public Sub t_EnvCenterAt() 
  Dim pEnv1 As IEnvelope 
  Dim pPoint As IPoint 

  Set pEnv1 = New Envelope 
  Set pPoint = New Point 

  pEnv1.PutCoords 100, 100, 200, 200 
  pPoint.PutCoords 0, 0 

  pEnv1.CenterAt pPoint 

  Dim dXmin As Double, dYmin As Double, dXmax As Double, dYmax As Double 
  pEnv1.QueryCoords dXmin, dYmin, dXmax, dYmax 

  If pEnv1.IsEmpty Then 
    MsgBox "envelope is empty" 
  Else 
    MsgBox dXmin & "," & dYmin & "," & dXmax & "," &  dYmax 
  End If 

End Sub 

[C#]
private void ReCenterEnvelope()
{
  IEnvelope envelope = new EnvelopeClass();
  envelope.PutCoords(100, 100, 200, 200);
 
  String report1 = "Envelope: \n" +
                   "LowerLeft  X = " + envelope.LowerLeft.X + "\n" +
                   "LowerLeft  Y = " + envelope.LowerLeft.Y + "\n\n" +
                   "LowerRight X =  " + envelope.LowerRight.X + "\n" +
                   "LowerRight Y =  " + envelope.LowerRight.Y + "\n\n" +
                   "UpperLeft  X = " + envelope.UpperLeft.X + "\n" +
                   "UpperLeft  Y = " + envelope.UpperLeft.Y + "\n\n" +
                   "UpperRight X =  " + envelope.UpperRight.X + "\n" +
                   "UpperRight Y =  " + envelope.UpperRight.Y;
  System.Windows.Forms.MessageBox.Show(report1);
  
  //re-center
  IPoint centerPoint = new PointClass();
  centerPoint.PutCoords(0, 0);
  envelope.CenterAt(centerPoint);
  String report2 = "Re-cetered Envelope: \n" +
                   "LowerLeft  X = " + envelope.LowerLeft.X + "\n" +
                   "LowerLeft  Y = " + envelope.LowerLeft.Y + "\n\n" +
                   "LowerRight X =  " + envelope.LowerRight.X + "\n" +
                   "LowerRight Y =  " + envelope.LowerRight.Y + "\n\n" +
                   "UpperLeft  X = " + envelope.UpperLeft.X + "\n" +
                   "UpperLeft  Y = " + envelope.UpperLeft.Y + "\n\n" +
                   "UpperRight X =  " + envelope.UpperRight.X + "\n" +
                   "UpperRight Y =  " + envelope.UpperRight.Y;
  System.Windows.Forms.MessageBox.Show(report2);
}

[Visual Basic .NET, C++]
No example is available for Visual Basic .NET or C++. To view a Visual Basic 6.0 or C# example, click the Language Filter button in the upper-left corner of the page.