Dim DI As DirectoryInfo = New DirectoryInfo("C:\\")
Dim dirQuery = From dir In DI.GetDirectories() Order By
               (dir.Name) Select dir.Name
For Each item In dirQuery
    ListBox1.Items.Add(item)
Next item
"====================================================================

Dim procQuery = From proc In Process.GetProcesses() Order By proc.Id   _
                            Descending Select proc.Id, proc.ProcessName
For Each item In procQuery
   ListBox2.Items.Add(item.Id & " " & item.ProcessName)
Next item
"=====================================================================

Dim context As DataContext = New DataContext("Data Source=SRCO-1\SQLEXPRESS;
                                                                        Initial Catalog=Contact;Integrated Security=true")
Dim contact1 As Table(Of Person) = context.GetTable(Of Person)()
Dim query = From c In contact1 Select c.Name, c.Email
For Each item In query
     ListBox3.Items.Add(item.Name & " " & " ==== ? " & item.Email)
Next item
"=======================================================================

Dim firstnames As String() = {"سخا روش", "سایت شرکت سخا روش", "سایت مقالات به زبان فارسی", "سری مقالات ", "ایران", "تهران"}  
Dim val As IEnumerable(Of String) = From fn In firstnames _
                                    Where (fn.StartsWith("س")) _
                                    Select fn
For Each name As String In val
     ListBox4.Items.Add(name)
Next name
"========================================================================

Dim XDoc As XDocument = XDocument.Load(MapPath("Cities.xml"))
Dim query1 = From c In XDoc.Descendants("City") _
             Order By c.Element("Name").Value _
             Select c.Element("Name").Value
For Each item In query1
    ListBox5.Items.Add(item)
Next item
"======================================================================  
 

Dim query2 = From line In File.ReadAllLines(MapPath("Maghalat.csv")) _
             Where Not line.StartsWith("#") _
             Let parts = line.Split(",") _
             Select Title = parts(0), Publisher = parts(1)
For Each item In query2
    ListBox6.Items.Add(item.Title & " " & item.Publisher)
Next item

End Sub