ueType = REG_SZ
   ValueKey = ""
   pSetClassValue sClassName
   
   ' Create the Class shell open command:
   SectionKey = sClassName
   pSetClassValue sClassDescription
   
   SectionKey = sClassName &amp; "\shell\open"
   If (sOpenMenuText = "") Then sOpenMenuText = "&amp;Open"
   ValueKey = ""
   pSetClassValue sOpenMenuText
   SectionKey = sClassName &amp; "\shell\open\command"
   ValueKey = ""
   pSetClassValue sExePath &amp; " ""%1"""
   
   If (bSupportPrint) Then
      SectionKey = sClassName &amp;