Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. 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