ShowGrayScaleDlg Example for Visual Basic

    Dim RasterColorDlg As New LEADRasterDlgClr_U
    Dim nRet As Integer
    
    RasterColorDlg.RedFactor = 400
    RasterColorDlg.GreenFactor = 300
    RasterColorDlg.BlueFactor = 300
    RasterColorDlg.UIFlags = GRAYSCALE_SHOW_PREVIEW Or _
                             GRAYSCALE_SHOW_TOOL_ZOOMLEVEL
    RasterColorDlg.Bitmap = LEAD1.Bitmap
    
    RasterColorDlg.ShowGrayScaleDlg (hWnd)