GetObjectInfo example for Visual Basic

   Dim RasterProc As New LEADRasterProcess
   RasterProc.GetObjectInfo LEADRasterView1.Raster, False
   MsgBox "X =" + Str(RasterProc.ObjectXPos) + Chr$(13) + _
          "Y =" + Str(RasterProc.ObjectYPos) + Chr$(13) + _
          "Angle =" + Str(RasterProc.ObjectOrientationAngle) + Chr$(13) + _
          " Roundness =" + Str(RasterProc.ObjectRoundness)