Checked)
End Sub

Private Sub chkOfficeXPStyle_Click()
   cIM.OfficeXpStyle = (chkOfficeXPStyle.Value = Checked)
End Sub

Private Sub cmdChangeCaption_Click()
   If mnuEdit(2).Caption = "&amp;Paste" Then
      mnuEdit(2).Caption = "Replacement Caption for &amp;Paste"
      cIM.IconItemCaptionChanged "&amp;Paste", mnuEdit(2).Caption
   Else
      cIM.IconItemCaptionChanged mnuEdit(2).Caption, "&amp;Paste"
      mnuEdit(2).Caption = "&amp;Paste"
   End If
   lblCaption.Caption = mnuEdit(2).Caption
End Sub

Pr