" &amp; vbTab &amp; "Ctrl-F6", "winNEXT", , -8006,
 ParentItemNumber, lIcon, False, (iCount &gt; 1)
'            lIcon = ilsIcons.ListImages("PREVWIN").Index - 1
'            .AddItem "Pre&amp;vious" &amp; vbTab &amp; "Shift-Ctrl-F6", "winPREVIOUS", ,
 -8007, ParentItemNumber, lIcon, False, (iCount &gt; 1)
'
'            bFIrst = True
'            For i = 0 To Forms.Count - 1
'               If Not (Forms(i) Is Me) Then
'                  If (Forms(i).Visible) And (Forms(i).MDIChild) Then
'                 