ShowWindDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub Wind_Click()
   RasterImgEfxDlg.Angle = 4500
   RasterImgEfxDlg.Dimension = 40
   RasterImgEfxDlg.UIFlags = WIND_SHOW_PREVIEW Or _
                                WIND_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap

   nRet = RasterImgEfxDlg.ShowWindDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.Wind LEADRasterView1.Raster, RasterImgEfxDlg.Dimension, _
                        RasterImgEfxDlg.Angle, _
                        RasterImgEfxDlg.Opacity
   End If
End Sub