       barMain.Remove sI
      End If
   Case 6
      mnuTest(6).Checked = Not (mnuTest(6).Checked)
      barMain.ItemEnabled("POSTITS") = mnuTest(6).Checked
   Case 7
      ' icon
      barMain.ItemIcon(1) = Rnd * m_cIml.ImageCount
   Case 8
      ' caption
      If (barMain.ItemCaption(1) = "T&amp;his is a changed caption") Then
         barMain.ItemCaption(1) = "Another change." &amp; vbCrLf &amp; "This is longer
          and includes a line-break."
      Else
         barMain.ItemCaption(1) = "T&amp;hi