GetRgnPerimeterLength example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim Top, Bottom, Left, Right As Integer
Top = LEADRasterView1.Raster.BitmapHeight / 3
Bottom = LEADRasterView1.Raster.BitmapHeight * 2 / 3
Left = LEADRasterView1.Raster.BitmapWidth / 3
Right = LEADRasterView1.Raster.BitmapWidth * 2 / 3
LEADRasterView1.Raster.SetRgnEllipse Left, Top, Right, Bottom, L_RGN_SET

RasterProc.GetRgnPerimeterLength LEADRasterView1.Raster
MsgBox "Perimeter Length = " + Str(RasterProc.RgnPerimeterLength)