ShowSolarizeDlg Example for Visual Basic

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

Private Sub Solarize_Click()
   RasterColorDlg.UIFlags = SOLARIZE_SHOW_PREVIEW Or _
                            SOLARIZE_SHOW_TOOL_ZOOMLEVEL
   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   
   nRet = RasterColorDlg.ShowSolarizeDlg (hWnd) 
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
         RasterProc.Solarize LEADRasterView1.Raster, RasterColorDlg.Threshold
   End If
End Sub