ICImagingControl.BacklightCompensation Property

Public BacklightCompensation As Long

This example initializes a slider control with the selected video device's minimum, maximum and current backlight compensation settings. When the slider is moved, the video device's backlight compensation value is updated accordingly:

Private Sub Form_Load()
Dim Range As Variant
    Range = ICImagingControl1.BacklightCompensationRange
    Slider1.Min = Range(0)
    Slider1.Max = Range(1)
    Slider1.Value = ICImagingControl1.BacklightCompensation
End Sub

Private Sub Slider1_Scroll()
    ICImagingControl1.BacklightCompensation  = Slider1.Value
End Sub