Public Class Form1
 
   Private xSettings As XDocument = <?xml version="1.0" encoding="utf-8"?>
                                    <settings>
                                       <languages>
                                          <language name="GER" value="Deutsch"/>
                                          <language name="FRA" value="Française"/>
                                       </languages>
                                       <documents/>
                                    </settings>
 
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
      Dim query = From l In xSettings.<settings>.<languages>.<language>
                  Select l.@value
 
      Me.ComboBox1.Items.AddRange(query.ToArray)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control