' dgvcolumnorder.vb Imports System Imports System.Data Imports System.Drawing Imports System.Windows.Forms Public Class MyForm Inherits Form Dim dgv As DataGridView ' フォームのLoadイベント・ハンドラ Sub MyForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' データソースとしてInsider.NETのRSS情報を利用 Dim ds As New DataSet() ds.ReadXml("http://rss.rssad.jp/rss/itm/fdotnet/rss.xml") dgv.DataSource = ds.Tables("item") ' 列の移動を許可 dgv.AllowUserToOrderColumns = True End Sub ' フォームのコンストラクタ Public Sub New() dgv = New DataGridView() dgv.Dock = DockStyle.Fill Me.Controls.Add(dgv) Me.Size = new Size(480, 240) End Sub End Class ' コンパイル方法:vbc /main:MyForm dgvcolumnorder.vb