   Form_Load
    End If
End Property

Public Property Get ItemName() As String
    ItemName = m_sName
End Property
Public Property Get ItemValue() As Variant
    ItemValue = m_svalue
End Property
Public Property Let ItemValue(ByVal sV As Variant)
    m_svalue = sV
    If (m_bLoaded) Then
        txtValue.Text = m_svalue
    End If
End Property
Public Property Let ItemValueType(iType As Integer)
    m_iValueType = iType
    If (m_bLoaded) Then
        optValueType(m_iValueType).Value = True
    End If
End Pr