How to enable "Color Display Mode"

I use the following code to try to control "Color Display Mode"

BoolStatus = swModel.Extension.RunCommand(swCommands_e.swCommands_ColorDisplayMode, "")

The code does successfully change the "Color Display Mode", but it toggles the state.  With now way of know what the state is before running the command, I don't know if I will be enabling or disabling the mode.

Is there a way to read the state of this mode in VBA?

Thank You.