Smallicon is not a member of system.windows.forms.listviewItem

[EDN Admin]

Hi there guys.
I need a help regarding this code problem:
Private Sub setData(ByRef b As Boolean)
Dim doc As New MSXML2.DOMDocument40
Dim nd As MSXML2.IXMLDOMElement
Dim qry As String
Dim item As System.Windows.Forms.ListViewItem
doc = app.Program
If b Then
qry = "//program"
Else
qry = "//program [@status=" & PROGRAM_STATUS(1) & " or @status=" & PROGRAM_STATUS(2) & "]"
End If

For Each nd In doc.selectNodes(qry)
UPGRADE_WARNING: Couldnt resolve default property of object nd.getAttribute(). Click for more: ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"
item = m_lvw.Items.Add(nd.getAttribute("name"))
With item
UPGRADE_ISSUE: MSComctlLib.ListItem property item.SmallIcon was not upgraded. Click for more: ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"
.SmallIcon =1 <---|(this line gives me a lot of pain in my head.)
If item.SubItems.Count > 1 Then
item.SubItems(1).Text = nd.getAttribute("year")
Else
item.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, nd.getAttribute("year")))
End If
If item.SubItems.Count > 2 Then
item.SubItems(2).Text = nd.getAttribute("status")
Else
item.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, nd.getAttribute("status")))
End If
End With
Next nd
End Sub
If anybody there how to fix this.. Please I am begging you.. ..
Jonel

View the full article