Private dSet As New DataSet1() Private Sub touroku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles touroku.Click Dim d1 As Byte = kannrinotext.Text Dim d2 As String = syuppinntaitorutext.Text Dim d3 As String = setumeitext.Text dSet.商品リスト.Add商品リストRow(d1, d2, d3) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dSet.商品リスト.WriteXml("C:\data\auctionlist.xml") MessageBox.Show("auctionlist.xmlに出力しました。", "通知") End Sub