ShowHistogramDlg Example for Visual Basic

    Dim RasterImgDlg   As New LEADRasterDlgImg_U
    Dim nRet As Integer

    RasterImgDlg.Bitmap = LEAD1.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