ShowHistoContrastDlg Example for Visual Basic

    Dim RasterColorDlg As New LEADRasterDlgClr_U
    Dim nRet As Integer
    
    RasterColorDlg.UIFlags = HISTOCONTRAST_SHOW_PREVIEW Or _
                             HISTOCONTRAST_SHOW_TOOL_ZOOMLEVEL
    
    RasterColorDlg.Bitmap = LEAD1.Bitmap
    
    nRet = RasterColorDlg.ShowHistoContrastDlg(hWnd)
    If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
        LEAD1.HistoContrast RasterColorDlg.Change
    End If