ShowIntensityDetectDlg Example for Visual Basic

Dim RasterColorDlg As New LEADRasterDlgClr
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer
Private Sub IntensityDetect_Click()
   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 = LEADRasterView1.Raster.Bitmap
   nRet = RasterColorDlg.ShowIntensityDetectDlg (hWnd) 
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
     RasterProc.IntensityDetect Main.ActiveForm. LEADRasterView1.Raster, RasterColorDlg.Low, _
                                   RasterColorDlg.High, RGB(0, 0, 0), RGB(0, 0, 255), IDB_CHANNEL_RED
   End If
End Sub