 Optional ByVal vKeyAfter As Variant _
    ) As Long
Attribute AddFromFile.VB_Description = "Adds an image or series of images to
 the image list from a bitmap or icon file."
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 file:
   If (hIml &lt;&gt; 0) Then
      un2 = LR_LOADFROMFILE
      ' Load the image from file:
      If bMapSysColors Then
          un2 = un2 Or LR_LOADMAP3DCOLORS
      End If
      ' Choose the icon close