m "-", , , -8008, ParentItemNumber
                        bFIrst = False
                     End If
                     iWInCOunt = iWInCOunt + 1
                     sCap = GetCaption(Forms(i).Caption)
                     .AddItem "&amp;" &amp; CStr(iWInCOunt) &amp; " )  " &amp; sCap, "winFORM:"
                      &amp; (i), , (-8009 - i), ParentItemNumber, lIcon, bCheck,
                      True
                  End If
               End If
            Next i
      End With
    End If
End Sub
Pr