RadialBlur 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.RadialBlur LEADRasterView1.Raster, 50, 10, 50, 50
End Sub