SetRgnColorRGBRange example for Visual Basic

'This example sets a region corresponding to all colors that
'have an rgb that includes red but no green and no blue
Private Sub Command94_Click()
Dim rgbLo As OLE_COLOR
Dim rgbHi As OLE_COLOR
   
rgbLo = RGB(1, 0, 0)
rgbHi = RGB(255, 0, 0)
LEADRasterView1.raster.SetRgnColorRGBRange rgbLo, rgbHi, L_RGN_SET
LEADRasterView1.RgnFrameType = RGNFRAME_ANIMATED
End Sub