did anyone know why the prg shows no subitem ?

Question

the listview shows in this test no subitem, the base is net cf 3.5 and wm6. and i become no error and no subitem but why

 Dim i As Integer
    For i = 0 To 3
        Dim item As New ListViewItem
        piclist.Images.Add(getuserpic(Mainform.nickname_1.ToString, Mainform.mainurl))
        item.ImageIndex = i
        item.Text = "tester " & i
        item.SubItems.Add("a")
        If i = 1 Then
            item.BackColor = Color.LightBlue
        ElseIf i = 2 Then
            item.BackColor = Color.LightPink
        End If
        userlist1.Items.Add(item)

    Next