ShowPolarDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub Polar_Click()
   RasterImgEfxDlg.ImageEffectFlags= FILL_CLR Or CART_TO_POL
   RasterImgEfxDlg.FillColor = RGB(0, 0, 220) 
   RasterImgEfxDlg.UIFlags = POLAR_SHOW_PREVIEW Or _
                                POLAR_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowPolarDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.Polar LEADRasterView1.Raster, RasterImgEfxDlg.FillColor, _
   RasterImgEfxDlg.ImageEffectFlags
   End If
End Sub