AddColorBand

Public Sub AddColorBand(zValue, Color1, Color2, Text)

Add another zColor band to the zColor table, which displays colors as a function of the z coordinate. After multiple calls to AddColorBand, the bands are sorted into numerical order, and colors are interpolated between the bands. When plotting, all surface points lower than the lowest zValue have Color1. Surface points between the first and second zValues have colors graduated between Color1 and Color2 of the second call to AddColorBand, etc.

Example..

With EcGraph3D1
Call .ClearColorBands
Call .AddColorBand(-1, vbBlue, vbBlue, "-1.0") 'Surface points lower than z = -1 are colored blue
Call .AddColorBand(0, vbBlue, vbRed, "0.") 'Surface points between z = -1 to 0 are colored blue to red
Call .AddColorBand(1, vbRed, vbGreen, "1.0") 'Surface points between z = 0 to 1 are colored red to green
'Surface points with z > 1 to 0 are colored green
End With