ShowSwirlDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub Swirl_Click()
  RasterImgEfxDlg.UIFlags = SWIRL_SHOW_PREVIEW Or _
                                SWIRL_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowSwirlDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.Swirl LEADRasterView1.Raster, RasterImgEfxDlg.Angle, _
                         RasterImgEfxDlg.CenterX, _
                         RasterImgEfxDlg.CenterY
   End If
End Sub