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 of a module. Isn there a VB4 equivelency?

Old Man

unfortunately, VB4 doens'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

---

It's an advantage because it makes the Code more readable and Neater sure, but as far as the actual Running of the Final Product Goes there's no diffence between Enums and constants is There?

Nope. It will be just a lot easier to maintain (and read).