Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Control the long integer value assigned to each item in the list, simply set the constant equal to a value

'Working with Enumerated Types Public Enum PersonTypeList     Client = 10     PersonalContact = 5     Vendor = 2     Other = 999 End Enum Sub EnumM()    Dim pt As PersonTypeList    pt = Client        Debug.Print pt End Sub