 Then
        lblParent.Caption = m_sParent
    End If
End Property
Public Property Get Parent() As String
    Parent = m_sParent
End Property
Public Property Let ItemName(ByVal sItemName As String)
    m_sName = sItemName
    If (m_bLoaded) Then
        txtName.Text = m_sName
        txtName.Tag = m_sName
    End If
End Property

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
Dim i As Long
    If (optType(1).Value) Then
        If (optValueType(1).Value) Then
            If 