ShowWaveShearDlg Example for Visual Basic

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

Private Sub WaveShear_Click()
  RasterImgEfxDlg.UIFlags = WAVESHEAR_SHOW_PREVIEW Or _
                                WAVESHEAR_SHOW_TOOL_ZOOMLEVEL

  RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster
  Dim i As Integer
   nRet = RasterImgEfxDlg.ShowWaveShearDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.AmplitudesCount = RasterImgEfxDlg.AmplitudesCount
      For i = 0 To RasterImgEfxDlg.AmplitudesCount - 1
         RasterProc.Curve(i) = RasterImgEfxDlg.Amplitudes (i) 
      Next i
      RasterProc.FreeHandShear LEADRasterView1.Raster, RasterImgEfxDlg.Scale, _
                                RasterImgEfxDlg.FillColor, _
                                RasterImgEfxDlg.ImageEffectFlags
   End If
End Sub