lBackColor As OLE_COLOR = -1, _
      Optional ByVal vKeyAfter As Variant _
    ) As Long
Attribute AddFromResourceID.VB_Description = "Adds an image or series of images
 to the image list from a resource identifier."
Dim hImage As Long
Dim un2 As Long
Dim lR As Long
Dim iX As Long, iY As Long
    
   ' Adds an image or series of images from a resource id.  Note this will
   ' only work when working on a resource in a compiled executable:
   If (hIml &lt;&gt; 0) Then
      ' Load the image from file:
      