RadWave Example for Visual Basic

Dim RasterIO as LEADRasterIO
Dim RasterProc as LEADRasterProcess

Public sub Command1_click() 
  Set RasterIO = New LEADRasterIO
  Set RasterProc = New LEADRasterProcess
  RasterIO.Load LEADRasterView1.Raster, "c:\1.bmp", 0, 0, 1
  RasterProc.RadWave LEADRasterView1.Raster, 5, 25, 0, 20, 20, 0, FILL_RPT_
 _Or DIS_FRQ 
End Sub