RGB Response Example for Visual Basic

Private Sub TestRGBResponse()
   RasterTwain.RGBElementsCount = 2

   RasterTwain.RGBElements (0).Index = 0
   RasterTwain.RGBElements(0).Channel1 = 0
   RasterTwain.RGBElements(0).Channel2 = 0
   RasterTwain.RGBElements(0).Channel3 = 0

   RasterTwain.RGBElements(1).Index = 1
   RasterTwain.RGBElements(1).Channel1 = 255
   RasterTwain.RGBElements(1).Channel2 = 255
   RasterTwain.RGBElements(1).Channel3 = 255

   RasterTwain.SetRGBResponse L_TWAIN_RGB_RESPONSE_SET, 1
End Sub