ShowBalanceColorsDlg Example for Visual Basic

Dim WithEvents RasterColorDlg As LEADRasterDlgClr
Dim nRet As Integer

Private Sub BalanceColor_Click()
   RasterColorDlg.EnableZoomToFit = False
   RasterColorDlg.UIFlags = BALANCECOLORS_SHOW_PREVIEW Or _
                            BALANCECOLORS_SHOW_TOOL_ZOOMLEVEL

   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterColorDlg.EnableMethodErrors = False
   nRet = RasterColorDlg.ShowBalanceColorsDlg (hWnd) 
   If (nRet = 0 And RasterColorDlg.DialogStatus) Then
      RasterProc.BalanceColors LEADRasterView1.Raster, RasterColorDlg.RedToRed, RasterColorDlg.RedToGreen, RasterColorDlg.RedToBlue, _
                                 RasterColorDlg.GreenToRed, RasterColorDlg.GreenToGreen, RasterColorDlg.GreenToBlue, _
                                 RasterColorDlg.BlueToRed, RasterColorDlg.BlueToGreen, RasterColorDlg.BlueToBlue
   End If
End Sub

Private Sub RasterColorDlg_DlgHelp(ByVal DlgFrom As Long, ByVal CtlID As Long) 
   Select Case DlgFrom
      Case HELP_BALANCECOLORS
         MsgBox "Help from BalanceColors dialog"
      
      Case HELP_COLOREDGRAY
         MsgBox "Help from ColoredGray dialog"
   
      Case HELP_GRAYSCALE
         MsgBox "Help from GrayScale dialog"
   
      Case HELP_REMAPHUE
         MsgBox "Help from RemapHue dialog"
   
      Case HELP_REMAPINTENSITY
         MsgBox "Help from RemapUntensity dialog"
   End Select

End Sub