<message type="outgoing_privateMessage" time="1183317723" medium="ICQ" _
  to="371090" from="266767" from_display="284466767" text="cool"/>
<message type="outgoing_privateMessage" time="1183317732" medium="ICQ" _
to="3701090" from="286767" from_display="284466767" text="mia%20au%20%3B%29"/>
<message type="incoming_privateMessage" time="1183317744" medium="ICQ" _
to="2866767" from="3771090" from_display="Bumbsi%5E%5E" text="%3A%2DD%C2%A0"/>
<message type="outgoing_privateMessage" time="1183317877" medium="ICQ" _
to="37067090" from="2866767" from_display="284466767" _
text="und%20was%20amchste%20so%2E%2E%3F"/>
<message type="outgoing_privateMessage" time="1183319361" medium="ICQ" _
to="370671090" from="284466767" from_display="284466767" text="%3AP"/>
<message type="incoming_privateMessage" time="1183319372" medium="ICQ" _
to="286767" from="36790" from_display="Bumbsi%5E%5E" _
text="%3A%2DP%C2%A0%3A%2DP%C2%A0"/>

    Private Sub watcher_Changed(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles watcher.Changed
        Dim settings As Xml.XmlReaderSettings = New Xml.XmlReaderSettings
        settings.ConformanceLevel = Xml.ConformanceLevel.Auto
        Dim XMLReader As Xml.XmlReader = Xml.XmlReader.Create(e.FullPath, _
          settings)
        With XMLReader
            Do While .Read
                Select Case .NodeType
                    Case Xml.XmlNodeType.Element
                        If (.Name = "message") Then
                            If .AttributeCount > 0 Then
                                While .MoveToNextAttribute
                                    If (.Name = "type" And .Value = _
                                      "incoming_privateMessage") Then
                                        While .MoveToNextAttribute
                                            If (.Name = "from") Then
 
                                                With Me.ListView1.Items
                                                    With .Add(XMLReader.Value + _
                                                      " -> Dir !")
                                                        XMLReader.MoveToAttribu_
                                                        te("text")
                                                        .SubItems.Add( _
                                                        XMLReader.Value)
                                                        .SubItems.Add( _
                                                        My.Computer.Clock.Local_
                                                        Time)
                                                    End With
                                                End With
                                            End If
                                        End While
                                    End If
                                End While
                            End If
                        End If
                End Select
            Loop
            .Close()
        End With
    End Sub