Info = sInfo &amp; "BackColor = " &amp; .BackColor &amp; vbCrLf
         sInfo = sInfo &amp; "ForeColor = " &amp; .ForeColor &amp; vbCrLf
         sInfo = sInfo &amp; "Tag = " &amp; .Tag &amp; vbCrLf
         sInfo = sInfo &amp; "ToolTipText = " &amp; .ToolTipText &amp; vbCrLf
         sInfo = sInfo &amp; "Checked = " &amp; .Checked &amp; vbCrLf
         sInfo = sInfo &amp; "Cut = " &amp; .Cut &amp; vbCrLf
         sInfo = sInfo &amp; "Selected = " &amp; .Selected &amp; vbCrLf
         sInfo = sInfo &amp; "