' dgvvisualstyle.vb Imports System Imports System.Drawing Imports System.Drawing.Imaging 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 ' データソースとして画像デコーダ一覧を使用 dgv.DataSource = ImageCodecInfo.GetImageDecoders() ' Visualスタイルを使用しない dgv.EnableHeadersVisualStyles = false ' 列ヘッダと行ヘッダの背景色を変更 dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Red dgv.RowHeadersDefaultCellStyle.BackColor = Color.Green ' 列ヘッダと行ヘッダの境界線を変更 dgv.RowHeadersBorderStyle = _ DataGridViewHeaderBorderStyle.Single dgv.ColumnHeadersBorderStyle = _ DataGridViewHeaderBorderStyle.Single 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 Class Program Shared Sub Main() ' XPのVisualスタイルを使用 Application.EnableVisualStyles() Application.Run(New MyForm()) End Sub End Class ' コンパイル方法:vbc dgvvisualstyle.vb