   ' Create the .File to Class association:
   ClassKey = HKEY_CLASSES_ROOT
   SectionKey = "." &amp; sAssociation
   ValueType = REG_SZ
   ValueKey = ""
   Value = sClassName
   
   ' Create the Class shell open command:
   SectionKey = sClassName
   Value = sClassDescription
   
   SectionKey = sClassName &amp; "\shell\open"
   If (sOpenMenuText = "") Then sOpenMenuText = "&amp;Open"
   ValueKey = ""
   Value = sOpenMenuText
   SectionKey = sClassName &amp; "\shell\open\command"
   ValueKey = ""
   Value 