RingEffect Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim Xorg As Integer
Dim Yorg As Integer
Dim Radius As Integer

Xorg = LEADRasterView1.Raster.BitmapWidth / 2
Yorg = LEADRasterView1.Raster.BitmapHeight / 2
Radius = Xorg

RasterProc.RingEffect LEADRasterView1.Raster, Xorg, Yorg, _
                                    Radius, 10, 0, _
                                    RGB(0, 0, 0), 100, _
                                    RING_COLOR Or _
                                    RING_FIXEDANGLE Or _
                                    RING_MAXRADIUS