不是ListView1.Items.SubItems
为企业提供成都网站制作、成都做网站、网站优化、网络营销推广、竞价托管、品牌运营等营销获客服务。创新互联建站拥有网络营销运营团队，以丰富的互联网营销经验助力企业精准获客，真正落地解决中小企业营销获客难题，做到“让获客更简单”。自创立至今，成功用技术实力解决了企业“网站建设、网络品牌塑造、网络营销”三大难题，同时降低了营销成本，提高了有效客户转化率，获得了众多企业客户的高度认可！
而是ListView1.Items(序号).Subitems
首先ListView1.Items是一个集合。
ListView1.Items(序号)表示集合内的一个个体，即ListViewItem
所以应该是这样
Dim litem As New ListViewItem
litem.Text = Fico
litem.SubItems.Add(Fname)
litem.SubItems.Add(Ftype)
litem.SubItems.Add(Fpath)
ListView1.Items.Add(litem)
这里把你的Fico当作了String，如果要显示图标，应该配合ImageList添加。
就用ComboBox，ComboBox由一个List和一个text组成，List里是一个个的对象有ValueMember和DisplayMember两个属性。你将DisplayMember属性改成usercode,username 即可。
问题有点乱啊……小弟认为的话做一个Sub，在每次删除List和添加list过程的后面加上这个Sub
Public Sub List1Change() '先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为 List1。当发生删除List或添加List事件之后加上这个事件。
For i = 0 To List1.ListCount - 1
If IsNumeric(CStr(Split(Trim(List1.List(i)) " ", " ")(0))) = True Then
List1.List(i) = i + 1 " " Split(List1.List(i) " ", " ")(1)
'如果已有标记，更新标记
Else
List1.List(i) = i + 1 " " Trim(List1.List(i))
'如果没有标记则添加标记
End If
Next
End Sub
Private Sub cmd1_Click()
List1.AddItem "今天的天气是:" cmd1.Caption
Call List1Change
End Sub
Private Sub Cmd2_Click()
List1.AddItem "今天的天气是:" Cmd2.Caption
Call List1Change
End Sub
完成的效果：
否则的话建议你用ListView，我比较擅长ListView，功能多，而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。