Attribute VB_Name = "Global"
'----------------------------------------------------------------------------
' 常量聲明
'----------------------------------------------------------------------------
Global Const OPC_BROWSE_UP = 1
Global Const OPC_BROWSE_DOWN = 2
Global Const OPC_READABLE = 1
Global Const OPC_WRITEABLE = 2
Global Const OPC_ACCESS_READ = 1
Global Const OPC_ACCESS_WRITE = 2
Global Const OPC_BRANCH = 1
Global Const OPC_LEAF = OPC_BRANCH + 1
Global Const OPC_FLAT = OPC_LEAF + 1

Global Const VT_EMPTY = 0
Global Const VT_NULL = 1
Global Const VT_I2 = 2
Global Const VT_I4 = 3
Global Const VT_R4 = 4
Global Const VT_R8 = 5
Global Const VT_CY = 6
Global Const VT_DATE = 7
Global Const VT_BSTR = 8
Global Const VT_DISPATCH = 9
Global Const VT_ERROR = 10
Global Const VT_BOOL = 11
Global Const VT_VARIANT = 12
Global Const VT_UNKNOWN = 13
Global Const VT_DECIMAL = 14
Global Const VT_I1 = 16
Global Const VT_UI1 = 17
Global Const VT_UI2 = 18
Global Const VT_UI4 = 19
Global Const VT_I8 = 20
Global Const VT_UI8 = 21
Global Const VT_INT = 22
Global Const VT_UINT = 23