ShowHistogramDlg Example for Visual Basic

Dim RasterImgDlg   As New LEADRasterDlgImg
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub Histogram_Click()
   RasterImgDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterImgDlg.BlueChannelPenColor = RGB(0, 0, 255) 
   RasterImgDlg.GreenChannelPenColor = RGB(0, 255, 0) 
   RasterImgDlg.RedChannelPenColor = RGB(255, 0, 0) 
   RasterImgDlg.MasterChannelPenColor = RGB(0, 0, 0) 
   RasterImgDlg.UIFlags = HISTOGRAM_SHOW_VIEWSTYLE Or _
                            HISTOGRAM_USERPENCOLORS
   RasterImgDlg.ShowHistogramDlg hWnd
End Sub