sClassName As String, _
        ByVal sClassDescription As String, _
        ByVal sAssociation As String, _
        Optional ByVal lDefaultIconIndex As Long = -1 _
    )
    ClassKey = HKEY_CLASSES_ROOT
    SectionKey = "." &amp; sAssociation
    ValueKey = ""
    Value = sClassName
    SectionKey = "." &amp; sAssociation &amp; "\shell\open\command"
    ValueKey = ""
    Value = sExePath &amp; " ""%1"""
    
    SectionKey = sClassName
    ValueKey = ""
    Value = sClassDescription
    SectionKey = sClass