CountLUTColors example for Visual Basic

LEADRasterView1.Raster.CountLUTColors LUT_UNSIGNED
MsgBox "Colors = " + Str(LEADRasterView1.Raster.LUTColorsCount) + Chr$(13) + _
      "First Index = " + Str(LEADRasterView1.Raster.LUTColorsFirstIndex)