Listing 1

Dim listService As New SPSWS.Lists
listService.Credentials = System.Net.CredentialCache.DefaultCredentials

Dim nodeList As XmlNode = listService.GetListCollection()
Dim i As Integer

For i = 0 To nodeList.ChildNodes.Count - 1
'Iterate the child nodes 
      Dim checkList As XmlNode = nodeList.ChildNodes.Item(i)
      With checkList
MsgBox(.Attributes.Item(1).Name & ":" &_ .Attributes.Item(1).InnerText)
MsgBox(.Attributes.Item(2).Name & ":" &_ .Attributes.Item(2).InnerText)
MsgBox(.Attributes.Item(3).Name & ":" &_ .Attributes.Item(3).InnerText)
MsgBox(.Attributes.Item(4).Name & ":" &_ .Attributes.Item(4).InnerText)
     	End With
Next i

Listing 2

Dim listService As New SPSWS.Lists
listService.Credentials = System.Net.CredentialCache.DefaultCredentials

Dim xmlDoc = New System.Xml.XmlDocument()
Dim ndQuery As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "Query", "")
Dim ndViewFields As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "ViewFields", "")
Dim ndQueryOptions As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "QueryOptions", "")

ndQueryOptions.InnerXml = "<IncludeMandatoryColumns>FALSE</IncludeMandatoryColumns>" + _
    "<DateInUtc>TRUE</DateInUtc>"
ndViewFields.InnerXml = "<FieldRef Name='Field1'/><FieldRef Name='Field2'/>"
ndQuery.InnerXml = "<Where><And><Gt><FieldRef Name='SalesAmount'/>" + _
    "<Value Type='Number'>15000</Value></Gt><Gt><FieldRef Name='Field2'/>" + _
    "<Value Type='DateTime'>2003-07-03T00:00:00</Value></Gt></And></Where>"

Try

    Dim ndListItems As XmlNode = listService.GetListItems("{DF18D39F-30FE-42F8-9B46-47167169CE85}", Nothing, ndQuery, _
        ndViewFields, Nothing, ndQueryOptions)

    MessageBox.Show(ndListItems.OuterXml)

    Catch ex As System.Web.Services.Protocols.SoapException

        MessageBox.Show("Message:" + ControlChars.Lf + ex.Message + ControlChars.Lf + 
        "Detail:" + ControlChars.Lf + ex.Detail.InnerText + ControlChars.Lf + 
        "StackTrace:" + ControlChars.Lf + ex.StackTrace)

End Try