ShowSolarizeDlg Example for Visual Basic

Private Sub Solarize_Click()
	Dim RasterColorDlg As New LEADRasterDlgClr_U
	Dim RasterKrnDlg As New LEADRasterDlgKrn_U
	Dim nRet As Integer

	RasterKrnDlg.InitDlg 0
	RasterColorDlg.UIFlags = SOLARIZE_SHOW_PREVIEW Or _
							SOLARIZE_SHOW_TOOL_ZOOMLEVEL
	RasterColorDlg.Bitmap = LEAD1.Bitmap

	nRet = RasterColorDlg.ShowSolarizeDlg(hWnd)
	If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
		LEAD1.Solarize RasterColorDlg.Threshold
	End If
	RasterKrnDlg.FreeDlg
End Sub