Problem med listview

Case 1
        lstdownloads.ListItems.Clear
        Do Until i = lst1.ListCount
       
       
      Dim itmo As ListItem
Set itmo = lstdownloads.ListItems.Add(, , lst1.List(i), ico, ico)
itmo.SubItems(1) = "fuckhoved"

           
        i = i + 1
    Loop

Ja uden "itmo.SubItems(1) = "fuckhoved"", virker det perfekt - men ellers får jeg en: Invalid property value.

Dette står på form_load()

  With lstdownloads
      .ListItems.Clear
      .ColumnHeaders.Add , , "Name", 3000
      .ColumnHeaders.Add , , "Fuckhoved", 3000
      .View = lvwReport