tooltiptext

I have a problem with listview tooltip. I have created a listview control on a form. Now, I want to use the tooltiptext property of the listview control so that when my mouse move over a particular item in the listview, the tooltiptext will display the item name. Pls help by giving me some VB Codes
Thanks!

sooraj

Code:

---

Option Explicit
  'you've to add a columnHeader
  'to make it works
  'Show in  a lvReport
Private Sub Form_Load()
  ListView1.View = lvwReport
  ListView1.ColumnHeaders.Add , "col1", "List Of Items"
  Dim i as Integer
  for i = 1 to 10
    ListView1.ListItems.Add , "a" & i, "Text" & i
    ListView1.ListItems(i).ToolTipText = "Text" & i
  next i
End Sub

---

Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, TCartwright, Bruno Paris, Dr_Michael
and all the other wonderful people who made and make Codeguru a great place.
Come back soon, you Gurus.

The Rater