ShowUnsharpMaskDlg Example for Visual Basic

Private Sub UnsharpMask_Click()
	Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U
	Dim RasterKrnDlg As New LEADRasterDlgKrn_U

	RasterKrnDlg.InitDlg 0
	Dim nRet As Integer
	RasterImgEfxDlg.UIFlags = UNSHARPMASKFILTER_SHOW_PREVIEW Or _
								UNSHARPMASKFILTER_SHOW_TOOL_ZOOMLEVEL

	RasterImgEfxDlg.Bitmap = LEAD1.Bitmap
	nRet = RasterImgEfxDlg.ShowUnsharpMaskDlg(hWnd)
	If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
	LEAD1.UnsharpMask RasterImgEfxDlg.Amount, RasterImgEfxDlg.Radius, _
						RasterImgEfxDlg.Threshold, RasterImgEfxDlg.ImageEffectFlags

	End If
	RasterKrnDlg.FreeDlg
End Sub