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?