         .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
                     If (Forms(i) Is Me.ActiveForm) Then
                        bCheck = True
                     Else
                        bCheck = False
     