or i = 1 To 100
            Set itmX = .Add(, "I" &amp; i, "Test Item " &amp; i, Rnd *
             ilsIcons32.ImageCount, Rnd * ilsIcons16.ImageCount)
            If (i Mod 2) = 0 Then
               itmX.ToolTipText = "This is a test tool tip for item " &amp; i
            End If
            With itmX.SubItems(1)
               .Caption = DateSerial(Year(Now), Rnd * Month(Now) + 1, Rnd *
                Day(Now) + 1)
               .ShowInTile = ((i Mod 2) = 0)
               '.IconIndex = itmX.IconIndex
