t; -1 Then
      SectionKey = sClassName &amp; "\DefaultIcon"
      ValueKey = ""
      pSetClassValue sExePath &amp; "," &amp; CStr(lDefaultIconIndex)
   End If
    
End Sub
Public Sub CreateAdditionalEXEAssociations( _
      ByVal sClassName As String, _
      ParamArray vItems() As Variant _
   )
Dim iItems As Long
Dim iItem As Long
   
   On Error Resume Next
   iItems = UBound(vItems) + 1
   If (iItems Mod 3) &lt;&gt; 0 Or (Err.Number &lt;&gt; 0) Then
      Err.Raise vbObjectError + 1048 + 26004, App.E