## On this page

  

 

 # SetFalseColor 

 Last update: 17.07.2025 

## Description

Sets the type of color to use between the eight color modes of the viewer:

- iTypeOfColor 0 = true color
- iTypeOfColor 1 = Black to white(color)
- iTypeOfColor 2 = White to black(color)
- iTypeOfColor 3 = White to black(gray scale)
- iTypeOfColor 4 = Blue to red(color)
- iTypeOfColor 5 = Red to blue(color)
- iTypeOfColor 6 = White to black (gray scale)
- iTypeOfColor 7 = Black to Color(Custom)
- iTypeOfColor 8 = Black to white(Custom Color)

Returns 1 if the call has succeeded, 0 otherwise.

## Syntax

*object*.SetFalseColor(int *iTypeOfColor*) As Int

- *object*: Virtual Reality Lab object
- *iTypeOfColor:* Defines the definition of the color to use between the 8 modes available from the viewer

**Note:**

With the last two modes, **Black to Color(Custom)** and **Black to White(Custom Color)**, the custom color used is the color defined in the map.

## Example

```
Sub FalseColor()
'Error Management
Dim Error As Integer
'Declare VRLab
Dim VirtualRealityLab As Object
Set VirtualRealityLab = CreateObject("HDRIViewer.Application")
'Show VRLab
Error = VirtualRealityLab.Show(True)
'Open File
Error = VirtualRealityLab.OpenFile("U:\AMT\API VRLab\InteriorCar.speos360")
'
    For i = 0 To 8
     Error =  VirtualRealityLab.SetFalseColor(i);
    Next
MsgBox ("Switch between the available display color modes")
End Sub


```