ShowIntensityDetectDlg Example for Visual Basic

    Dim RasterColorDlg As New LEADRasterDlgClr_U
    Dim nRet As Integer
    
    RasterColorDlg.UIFlags = INTENSITYDETECT_SHOW_PREVIEW Or _
                             INTENSITYDETECT_SHOW_TOOL_ZOOMLEVEL
    RasterColorDlg.IntensityChannel = IDB_CHANNEL_RED
    RasterColorDlg.InColor = RGB(0, 0, 0)
    RasterColorDlg.OutColor = RGB(0, 0, 255)
    
    RasterColorDlg.Bitmap = LEAD1.Bitmap
    nRet = RasterColorDlg.ShowIntensityDetectDlg(hWnd)
    If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
        LEAD1.IntensityDetect RasterColorDlg.Low, RasterColorDlg.High
    End If