Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        DataGridView1.ColumnHeadersHeight = 200

        DataGridView1.Columns(0).Width = 30

    End Sub



    Private Sub DataGridView1_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting

        If e.RowIndex = -1 AndAlso e.ColumnIndex >= 0 Then

            e.Handled = True

            e.PaintBackground(e.ClipBounds, False)

            Dim g = e.Graphics()

            Dim sf As New StringFormat()

            Dim fnt = New Font("@ＭＳ ゴシック", 16, FontStyle.Bold)

            sf.FormatFlags = StringFormatFlags.DirectionVertical

            g.DrawString(DataGridView1.Columns(e.ColumnIndex).HeaderText, fnt, Brushes.Black, e.CellBounds, sf)

        End If

    End Sub