Visual Basic

Dim dir As String = "C:\"
Dim search As DirectoryInfo = New DirectoryInfo("c:\Windows\") '(dir & ":\")
For Each file As FileInfo In search.GetFiles("*.*", SearchOption.AllDirectories)
   ListBox1.Items.Add(file)
Next

Public Sub DisplayInfo(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.Click
   If ListBox1.SelectedIndices.Count > 0 Then
      For Each i As Integer In ListBox1.SelectedIndices
         Dim o As Object = ListBox1.Items(i)
         If TypeOf o Is FileInfo Then
            MessageBox.Show(DirectCast(o, FileInfo).FullName)
         End If
      Next
   End If
End Sub

Dim xmlnsManager As New XmlNamespaceManager(XDoc.NameTable)

xmlnsManager.AddNamespace("alias", "http://www.w3.org/2001/XMLSchema")

xmlNI = xmlNav.Select("/alias:SOP_FILE/QuestionList/Question", xmlnsManager )

---

I'm largely language agnostic

---

After a while they all bug me

---

Dim XDoc As XPathDocument
        Dim xmlNav As XPathNavigator
        Dim xmlNI As XPathNodeIterator

        XDoc = New XPathDocument("C:\file.xml")
        xmlNav = XDoc.CreateNavigator

        Dim xmlnsManager As New XmlNamespaceManager(xmlNav.NameTable)
        xmlnsManager.AddNamespace("alias", "http://www.w3.org/2001/XMLSchema")
        xmlNI = xmlNav.Select("/alias:SOP_FILE/QuestionList/Question", xmlnsManager)

        While xmlNI.MoveNext
            MsgBox(xmlNI.Current.Name & " - " & xmlNI.Current.Value)
        End While

Dim XDoc As XPathDocument
Dim xmlNav As XPathNavigator
Dim xmlNI As XPathNodeIterator
Dim str As New StringReader(*snipped xml*)
XDoc = New XPathDocument(str)

xmlNav = XDoc.CreateNavigator

Dim xmlnsManager As New XmlNamespaceManager(xmlNav.NameTable)
xmlnsManager.AddNamespace("sop", "http://schemas.mycompany.com/SOP")
xmlnsManager.AddNamespace("xs", "http://www.w3.org/2001/XMLSchema")
xmlNI = xmlNav.Select("/sop:SOP_FILE/sop:QuestionList/sop:Question", xmlnsManager)

While xmlNI.MoveNext
    MsgBox(xmlNI.Current.Name & " - " & xmlNI.Current.Value)
End While

---

I'm largely language agnostic

---

After a while they all bug me

---

Private Sub DataReceived( _
                     ByVal sender As Object, _
                     ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                     Handles serialPort.DataReceived

       Dim stringCom As String = serialPort.ReadTo("G")
       serialPort.ReadExisting()



       BackgroundWorker.RunWorkerAsync(stringCom)


   End Sub

   Private Sub backgroundworker_Dowork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker.DoWork
       Dim argument As Object = e.Argument


       For Value As Integer = 0 To 1
           If BackgroundWorker.CancellationPending Then

               Exit For

           End If

           BackgroundWorker.ReportProgress(Value, argument)
           BackgroundWorker.CancelAsync()
       Next

       ' Threading.Thread.Sleep(100)

   End Sub
   Private Sub backgroundworker_Progresschanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker.ProgressChanged
       Me.txtbxWeight.Text = e.UserState   This is where it says "Cross-thread operation not valid: Control 'txtbxWeight' accessed from a thread other than the thread it was created on."


   End Sub

Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialPort.DataReceived
   Dim stringCom As String = serialPort.ReadExisting.ToString()
   TextChange(StringCom)
End Sub

Delegate Sub TextChangeDelegate(ByVal Str As String)

Sub TextChange(ByVal Str As String)
   If Me.txtbxWeight.InvokeRequired Then
      Dim d As New TextChangeDelegate(AddressOf TextChange)
      Me.Invoke(d, Str)
   Else
      Me.txtbxWeight.Text = Str
   End If
End Sub