Firewing

e.g.

Code: Select all

Public Enum tObjState
   Hidden
   Disabled
   Enabled
   Pressed
end Enum

Dim State as tObjState

Select State                           
   Case State.Hidden Color = ActiveScreenColor     
   Case State.Disabled Color = DisabledColor   
   Case else Color = SolidColor
end Select

JohnB

You can, but you need to use the enum identifier (tObjState) to qualify each of the cases.
Also, the VB-style syntax requires you to put the assignment on a new line

Code: Select all

    Select State                           
       Case tObjState.Hidden
            Color = ActiveScreenColor     
       Case tObjState.Disabled
            Color = DisabledColor   
       Case else
            Color = SolidColor
    end Select