DrawStar Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX, CenterY, iStarWidth, iStarHeight As Integer

CenterX = LEADRasterView1.Raster.BitmapWidth / 2
CenterY = LEADRasterView1.Raster.BitmapHeight / 2

iStarWidth = LEADRasterView1.Raster.BitmapWidth / 2
iStarHeight = LEADRasterView1.Raster.BitmapHeight / 2
RasterProc.DrawStar LEADRasterView1.Raster, CenterX, CenterY, 5, _
iStarWidth, iStarHeight, 50, 0, 0, 0, 0, 0, 0, RGB(0, 0, 255), RGB(255, 0, 0), _
100, STR_INSIDE