ShowGammaAdjustmentDlg Example for Visual Basic

Dim RasterColorDlg As New LEADRasterDlgClr_U
Dim nRet As Integer

RasterColorDlg.GammaRedValue = 50
RasterColorDlg.GammaRedValue = 50
RasterColorDlg.GammaGreenValue = 50
RasterColorDlg.GammaBlueValue = 50
RasterColorDlg.EnableGammaAllChannels = True
RasterColorDlg.UIFlags = GAMMAADJUSTMENT_SHOW_PREVIEW Or _
                         GAMMAADJUSTMENT_SHOW_TOOL_ZOOMLEVEL

RasterColorDlg.Bitmap = LEAD1.Bitmap
nRet = RasterColorDlg.ShowGammaAdjustmentDlg(hWnd)

If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
    LEAD1.GammaCorrect RasterColorDlg.GammaRedValue
End If