ShowRemoveRedEyeDlg Example for Visual Basic

Dim WithEvents RasterImgDocDlg As LEADRasterDlgImgDoc
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub RemoveRedEye_Click()
   RasterImgDocDlg.EnableZoomToFit = False
   RasterImgDocDlg.UIFlags = REMOVEREDEYE_SHOW_PREVIEW Or _
                         REMOVEREDEYE_SHOW_TOOL_ZOOMLEVEL

   RasterImgDocDlg.Bitmap= LEADRasterView1.Raster.Bitmap
   RasterImgDocDlg.EnableMethodErrors= False
   nRet = RasterImgDocDlg.ShowRemoveRedEyeDlg (hWnd) 
   If (nRet = 0 And RasterImgDocDlg.DialogStatus= DLG_OK) Then
      RasterProc.RemoveRedeye LEADRasterView1.Raster, RasterImgDocDlg.NewColor, RasterImgDocDlg.Threshold, RasterImgDocDlg.Lightness
   End If
End Sub

Private Sub RasterImgDocDlg_DlgHelp(ByVal DlgFrom As Long, ByVal CtlID As Long) 
   Select Case DlgFrom
      Case HELP_REMOVEREDEYE
            MsgBox "Help from Remove Red eye dialog "

      Case HELP_SMOOTH
            MsgBox "Help from Smooth dialog "

      Case HELP_REMOVEREDEYE
        MsgBox "Help from Remove Red eye dialog "

      Case HELP_LINEREMOVE
         MsgBox "Help from Line-Remove dialog "

      Case HELP_BORDERREMOVE
         MsgBox "Help from Border-Remove dialog "

      Case HELP_INVERTEDTEXT
         MsgBox "Help from Inverted-Text dialog "

      case HELP_DOTREMOVE
         MsgBox "Help from Dot-Remove dialog "
                break; 

      case HELP_HOLEPUNCHREMOVE
         MsgBox "Help from Hole-Punch-Remove dialog "
   End Select
End Sub