ShowSmoothDlg Example for Visual Basic

Private Sub Smooth_Click()
	Dim RasterImgDocDlg As New LEADRasterDlgImgDoc_U
	Dim RasterKrnDlg As New LEADRasterDlgKrn_U
	Dim nRet As Integer

	RasterKrnDlg.InitDlg 0
	RasterImgDocDlg.Smooth.Flags = SMOOTH_ALLFLAGS
	RasterImgDocDlg.Smooth.Length = 1
	RasterImgDocDlg.WhiteAreaColor = RGB(255, 0, 0)
	RasterImgDocDlg.BlackAreaColor = RGB(0, 0, 255)
	RasterImgDocDlg.UIFlags = SMOOTH_SHOW_PREVIEW Or _
							 SMOOTH_SHOW_TOOL_ZOOMLEVEL

	RasterImgDocDlg.Bitmap = LEAD1.Bitmap
	nRet = RasterImgDocDlg.ShowSmoothDlg(hWnd)
	If (nRet = 0 And RasterImgDocDlg.DialogStatus = DLG_OK) Then
		LEAD1.Smooth RasterImgDocDlg.Smooth.Length, _
				   RasterImgDocDlg.Smooth.Flags
		LEAD1.ForceRepaint
	End If
	RasterKrnDlg.FreeDlg
End Sub