Name &amp; "\shell\open\command"
    ValueKey = sExePath &amp; " ""%1"""
    If lDefaultIconIndex &gt; -1 Then
        SectionKey = sClassName &amp; "\DefaultIcon"
        ValueKey = ""
        Value = sExePath &amp; "," &amp; CStr(lDefaultIconIndex)
    End If
    
End Sub
Public Property Get ValueType() As ERegistryValueTypes
    ValueType = m_eValueType
End Property
Public Property Let ValueType(ByVal eValueType As ERegistryValueTypes)
    m_eValueType = eValueType
End Property
Public Property Get ClassK