UserPalette and BitmapPalette example for Visual Basic

Note: Also works with Access 95 and 97.

This example demonstrates the UserPalette and BitmapPalette properties.

Dim RasterProc As New LEADRasterProcess
'Specify a blue and white user palette
RasterProc.UserPalette(0) = RGB(0, 0, 255)
RasterProc.UserPalette(1) = RGB(255, 255, 255)
'Implement the user palette
RasterProc.ColorRes LEADRasterView1.Raster, 1, CRP_USERPALETTE, CRD_ORDEREDDITHERING, 2
'Display the blue and white image
LEADRasterView1.ForceRepaint
MsgBox "This is the user palette. Click OK to change the bitmap palette."
'Change the bitmap palette to red and white
LEADRasterView1.Raster.BitmapPalette(0) = RGB(255, 0, 0)
LEADRasterView1.Raster.BitmapPalette(1) = RGB(255, 255, 255)
'Display the red and white image
LEADRasterView1.ForceRepaint