 "\shell\print"
      If (sPrintMenuText = "") Then sPrintMenuText = "&amp;Print"
      ValueKey = ""
      pSetClassValue sPrintMenuText
      SectionKey = sClassName &amp; "\shell\print\command"
      ValueKey = ""
      pSetClassValue sExePath &amp; " /p ""%1"""
   End If
   
   If (bSupportInstall) Then
      If (sInstallMenuText = "") Then
         sInstallMenuText = "&amp;Install " &amp; sAssociation
      End If
      SectionKey = sClassName &amp; "\shell\add"
      ValueKey = ""
      pSetClassValue