ShowAddNoiseDlg Example for Visual Basic

     Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U
    Dim nRet As Integer

    RasterImgEfxDlg.Channel = CHANNEL_MASTER
    RasterImgEfxDlg.UIFlags = ADDNOISE_SHOW_PREVIEW Or ADDNOISE_SHOW_TOOL_ZOOMLEVEL

    RasterImgEfxDlg.Bitmap = LEAD1.Bitmap
    nRet = RasterImgEfxDlg.ShowAddNoiseDlg(hWnd)
    If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
        LEAD1.AddNoise RasterImgEfxDlg.Range, RasterImgEfxDlg.Channel
    End If