ListItem Bold

I put a listview named lst on a form and write below code

Code:

---

Private Sub Form_Load()
    Dim lvItem As ListItem
    Lst.view = 3 'lvwReport
    Lst.ColumnHeaders.Add Text:="Contacts"
    For i = 1 To 1000 'olAddr.AddressEntries.Count
        Set lvItem = Lst.ListItems.Add(Text:="A" & i)
        lvItem.Bold = True
    Next
End Sub

---

When I run the form,every Item is bold but when I select an Item, If the length of item text is greater than 3 (example A123) the text will become A1....
I dont know how to correct it?
anyone help me?

I pasted your code into a new project and it worked fine for me....

That's really weird. One solution however is to set the ListView's FullRowSelect property to True.