         lIcon = ilsIcons.ListImages(Forms(i).Name).Index - 1
'                     End If
'                     If (bFIrst) Then
'                        .AddItem "-", , , -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