SetRgnMagicWand example for Visual Basic

Private Sub LEADRasterView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    LEADRasterView1.Raster.SetRgnMagicWand x, y, 10, L_RGN_SET
    LEADRasterView1.RgnFrameType = RGNFRAME_ANIMATED
End Sub