= True
Attribute VB_Exposed = False
Option Explicit
Private m_sParent As String
Private m_bLoaded As Boolean
Private m_bCancel As Boolean
Private m_iType As Integer
Private m_iValueType As Integer
Private m_sName As String
Private m_svalue As Variant
Private m_eMode As ERegItemMode

Public Enum ERegItemMode
    eNew
    eUpdate
End Enum

Public Property Get mode() As ERegItemMode
    mode = m_eMode
End Property
Public Property Let mode(eMode As ERegItemMode)
    m_eMode = eMode
    If (m_bLoaded) Then
     