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