Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "

    Public Sub New()
        MyBase.New()

        ' この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後に初期化を追加します。

    End Sub

    ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer

    ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
    'Windows フォーム デザイナを使って変更してください。  
    ' コード エディタを使って変更しないでください。
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.DataGrid1 = New System.Windows.Forms.DataGrid
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.Font = New System.Drawing.Font("MS UI Gothic", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(8, 8)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(272, 184)
        Me.DataGrid1.TabIndex = 0
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
        Me.ClientSize = New System.Drawing.Size(292, 205)
        Me.Controls.Add(Me.DataGrid1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' テーブルの列を作成
        Dim dataSet1 As New DataSet("商品マスター")
        Dim dataTable1 As DataTable = dataSet1.Tables.Add("商品テーブル")
        Dim dataClumn1 As DataColumn = dataTable1.Columns.Add("ID", GetType(Integer))
        Dim dataClumn2 As DataColumn = dataTable1.Columns.Add("商品")
        Dim dataClumn3 As DataColumn = dataTable1.Columns.Add("チェック", GetType(Integer))

        ' テーブルにデータを追加
        dataTable1.Rows.Add(New [Object]() {1, "みかん", 100})
        dataTable1.Rows.Add(New [Object]() {2, "りんご", 300})
        dataTable1.Rows.Add(New [Object]() {3, "バナナ", 120})
        dataTable1.Rows.Add(New [Object]() {4, "すいか", 280})
        dataTable1.Rows.Add(New [Object]() {5, "いちご", 200})
        dataTable1.Rows.Add(New [Object]() {6, "メロン", 150})

        ' データグリッドの行の追加と削除、データ編集を不許可にする
        dataTable1.DefaultView.AllowNew = False
        dataTable1.DefaultView.AllowDelete = False
        dataTable1.DefaultView.AllowEdit = False

        ' データグリッドにテーブルを表示する（データソースにDataViewを使う）
        DataGrid1.SetDataBinding(dataTable1.DefaultView, "")
        'DataGrid1.SetDataBinding(dataSet1, dataTable1.TableName)
    End Sub
End Class