amp;Cascade", "winCASCADE", , -8002, ParentItemNumber,
             lIcon, False, True
            lIcon = ilsIcons.ListImages("MAXIMISE").Index - 1
            .AddItem "Maximise &amp;All", "winMAXIMISE", , -8003, ParentItemNumber,
             lIcon, False, True
            lIcon = ilsIcons.ListImages("MINIMISE").Index - 1
            .AddItem "Mini&amp;mise All", "winMINIMISE", , -8004, ParentItemNumber,
             lIcon, False, True
            For i = 0 To Forms.Count - 1
               If Not (Forms