Enum in VB4?

I'm trying to follow a coding example in VB5 and the words

private enum ...end enum

are used in the declarations section of a module. Is there a VB4 equivelency?


Old Man

I have Peter Nortons Guide To Visual Basic 4
and there is no mention of Enum....I think the
book is very good so if it's not there, chance are
it isn't to be found!

Unfortuantely, VB4 doesn't support Enums.

You Can Do Pretty Much The Same thing tho, where you get a statement

Code:

---

Public Enum MyEnum
    MyEnum1 = 1
    MyEnum2 = 2
    MyEnum3 = 3
End Enum

---

just Change it to

Code:

---


Public Const MyEnum1 = 1
Public Const MyEnum2 = 2
Public Const MyEnum3 = 3

---

and whereever it declares a variable As MyEnum declare it as Long instead. You won't get the picklists but all the Code will still work.

Advantage of Enums is that you can use it as a returned value (for example in a function):

Code:

---

Public Enum enumMyColor
    RED = 1
    BLUE = 2
    GREEN = 3
    YELLOW = 4
End Enum

Public Function GetMyColor() As enumMyColor
    'Do something here
   
    'Return Color Value (for example red)
    GetMyColor = RED
End Function

---