Creating XML with Visual Basic

Module Music

    Sub Main()

        Using data = New MusicDataContext()

            Dim xml = <Artists>
                          <%= From artist In data.Artists
                              Select <Artist>
                                         <Name><%= artist.Name %></Name>
                                         <Songs>
                                             <%= From song In artist.Songs
                                                 Select <Song><%= song.Title %></Song>
                                             %>
                                         </Songs>
                                     </Artist> %>
                      </Artists>

            File.WriteAllText("Music.xml", xml.ToString())

        End Using

    End Sub

End Module

<Artists>
  <Artist>
    <Name>Justin Bieber</Name>
    <Songs>
      <Song>One Less Lonely Girl</Song>
      <Song>Baby</Song>
    </Songs>
  </Artist>
  <Artist>
    <Name>Rebecca Black</Name>
    <Songs>
      <Song>Friday</Song>
    </Songs>
  </Artist>
</Artists>