ShowWaveDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub Wave_Click()
  RasterImgEfxDlg.UIFlags = WAVE_SHOW_PREVIEW Or _
                                WAVE_SHOW_TOOL_ZOOMLEVEL

  RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
  nRet = RasterImgEfxDlg.ShowWaveDlg(hWnd) 
  If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
     RasterProc.Wave LEADRasterView1.Raster, RasterImgEfxDlg.Amplitude, _
                      RasterImgEfxDlg.WaveLength, _
                      RasterImgEfxDlg.Angle, _
                      RasterImgEfxDlg.HorizontalScale, _
                      RasterImgEfxDlg.VerticalScale, _
                      RasterImgEfxDlg.FillColor, _
                      RasterImgEfxDlg.ImageEffectFlags
  End If
End Sub