ShowBendingDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub Bending_Click()
   RasterImgEfxDlg.UIFlags = BENDING_SHOW_PREVIEW Or _
                                BENDING_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowBendingDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus) Then
      RasterImgEfxDlg.Bending RasterImgEfxDlg.Value, _
                           RasterImgEfxDlg.CenterX, _
                           RasterImgEfxDlg.CenterY, _
                           RasterImgEfxDlg.FillColor, _
                           RasterImgEfxDlg.ImageEffectFlags
   End If
End Sub