                End If
                     sKey = Forms(i).Name
                     On Error Resume Next
                     lIcon = ilsIcons.ListImages(sKey).Index - 1
                     If (Err.Number &lt;&gt; 0) Then
                        Err.Clear
                        ilsIcons.ListImages.Add , Forms(i).Name, Forms(i).Icon
                        lIcon = ilsIcons.ListImages(Forms(i).Name).Index - 1
                     End If
                     If (bFIrst) Then
                        .AddIte