ShowColorDlg Example for Visual Basic

Dim RasterColorDlg As New LEADRasterDlgClr
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer

Private Sub Color_Click()
   RasterColorDlg.UIFlags = COLOR_SHOW_OLDCOLOR Or _
                            COLOR_SHOW_NEWCOLOR Or _
                            COLOR_SHOW_NAME Or _
                            COLOR_COLORSPACE_SHOW_HUE Or _
                            COLOR_COLORSPACE_SHOW_BRIGHTNESS Or _
                            COLOR_COLORSPACE_SHOW_WHEEL Or _
                            COLOR_COLORSPACE_SHOW_RGB Or _
                            COLOR_COLORSPACE_SHOW_CMY Or _
                            COLOR_COLORSPACE_SHOW_CMYK Or _
                            COLOR_COLORSPACE_SHOW_LAB Or _
                            COLOR_COLORMODEL_SHOW_RGB Or _
                            COLOR_COLORMODEL_SHOW_HSB Or _
                            COLOR_COLORMODEL_SHOW_HLS Or _
                            COLOR_COLORMODEL_SHOW_CMY Or _
                            COLOR_COLORMODEL_SHOW_CMYK Or _
                            COLOR_COLORMODEL_SHOW_LAB

   RasterColorDlg.SelectedColor = RGB(255, 255, 255) 
   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterColorDlg.ShowColorDlg (hWnd) 
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
      RasterProc.Fill LEADRasterView1.Raster, RasterColorDlg.SelectedColor
   End If

End Sub