ShowGrayScaleDlg Example for Visual Basic

Dim RasterColorDlg As New LEADRasterDlgClr
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer

Private Sub GrayScaleDlg_Click()
   RasterColorDlg.RedFactor = 400
   RasterColorDlg.GreenFactor = 300
   RasterColorDlg.BlueFactor = 300
   RasterColorDlg.UIFlags = GRAYSCALE_SHOW_PREVIEW Or _
                            GRAYSCALE_SHOW_TOOL_ZOOMLEVEL
   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   
   RasterColorDlg.ShowGrayScaleDlg (hWnd) 
End Sub