Originariamente inviato da 814(k m49!(
e' 1, ho messo un msgbox prima dell'errore:
Set itm = lvS.ListItems.Add(, "T" + CStr(Key))
itm.Text = splLetto(0)
MsgBox splLetto(1)
itm.SubItems(1) = splLetto(1)
Key = Key + 1
E se scrivi cosiė

MsgBox lvS.ColumnHeaders.Item(2)
itm.SubItems(1) = splLetto(1)

cosa appare nella msgbox ?