ShowRippleDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub Ripple_Click()
   RasterImgEfxDlg.Amplitude = 100
   RasterImgEfxDlg.Frequency = 50
   RasterImgEfxDlg.UIFlags = RIPPLE_SHOW_PREVIEW Or _
                                RIPPLE_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowRippleDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.Ripple LEADRasterView1.Raster, RasterImgEfxDlg.Amplitude, _
                          RasterImgEfxDlg.Frequency, _
                          RasterImgEfxDlg.Phase, _
                          RasterImgEfxDlg.Attenuation, _
                          RasterImgEfxDlg.CenterX, _
                          RasterImgEfxDlg.CenterY, _
                          RasterImgEfxDlg.FillColor, _
                          RasterImgEfxDlg.ImageEffectFlags
   End If
End Sub