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 Command3_Click()
Dim rgbLo As OLE_COLOR
Dim rgbHi As OLE_COLOR
   
rgbLo = RGB(1, 0, 0)
rgbHi = RGB(255, 0, 0)
LEAD1.SetRgnColorRGBRange rgbLo, rgbHi, L_RGN_SET
LEAD1.RgnFrameType = RGNFRAME_ANIMATED
End Sub