(i) Is Me) Then
                  If (Forms(i).Visible And Forms(i).MDIChild) Then
                     iCount = iCount + 1
                  End If
               End If
            Next i
            .AddItem "-", , , -8005, ParentItemNumber
            lIcon = ilsIcons.ListImages("NEXTWIN").Index - 1
            .AddItem "Ne&amp;xt" &amp; vbTab &amp; "Ctrl-F6", "winNEXT", , -8006,
             ParentItemNumber, lIcon, False, (iCount &gt; 1)
            lIcon = ilsIcons.ListImages("PREVWIN").Index - 1
   