ShowMedianDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub Median_Click()
      RasterImgEfxDlg.UIFlags = MEDIAN_SHOW_PREVIEW + _
                                MEDIAN_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowMedianDlg (hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.Median LEADRasterView1.Raster, RasterImgEfxDlg.Dimension
   End If
End Sub