[VB] リソースのXMLをデータセットに読み込ませる

テストデータなんかをXMLに書いておいて、読み込ませる時に使ってます。

--------------------------

' 現在実行中のアセンブリを取得
Dim asm As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()

'アセンブリ中のすべての名称を取得
Dim rns() As String = asm.GetManifestResourceNames()
If (rns.Length <= 0) Then
   Return Nothing
End If

' リソースのストリームを取得
Dim s As IO.Stream = asm.GetManifestResourceStream(rns(0))

'データセットに読み込ませる
Dim ds As New DataSet
ds.ReadXml(s)