Hot = " &amp; .Hot &amp; vbCrLf
         sInfo = sInfo &amp; "Indent = " &amp; .Indent &amp; vbCrLf
         sInfo = sInfo &amp; "ItemData = " &amp; .ItemData &amp; vbCrLf
         sInfo = sInfo &amp; "Key = " &amp; .Key &amp; vbCrLf
         sInfo = sInfo &amp; "Left =" &amp; .Left &amp; vbCrLf
         sInfo = sInfo &amp; "Top = " &amp; .Top &amp; vbCrLf
         MsgBox sInfo, vbInformation
      End With
   Else
      MsgBox "No item is selected.", vbInformation
   End If
   Exit Sub
ErrorHandler:
   Msg