     .AddItem "Mini&amp;mise All", "winMINIMISE", , -8004,
 ParentItemNumber, lIcon, False, True
'            For i = 0 To Forms.Count - 1
'               If Not (Forms(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