How to enable header cell borders if its celltype is TextBox?

//Event Triggering.
this.gridControl1.QueryCellInfo += gridControl1_QueryCellInfo;
 
//Event Handling.
void gridControl1_QueryCellInfo(object sender, GridQueryCellInfoEventArgs e)
{
    if (e.ColIndex == 0)
    {
        e.Style.CellType = GridCellTypeName.TextBox;
        e.Style.Borders.Bottom = e.Style.Borders.Right = new GridBorder(GridBorderStyle.Solid, Color.FromArgb(100, 100, 100), GridBorderWeight.Thin);
        e.Style.Borders.Top = e.Style.Borders.Left = new GridBorder(GridBorderStyle.Solid, Color.White, GridBorderWeight.Thin);
    }
}

'Event Triggering.
AddHandler Me.gridControl1.QueryCellInfo, AddressOf gridControl1_QueryCellInfo
 
'Event Handling.
Private Sub gridControl1_QueryCellInfo(ByVal sender As Object, ByVal e As GridQueryCellInfoEventArgs)
 If e.ColIndex = 0 Then
  e.Style.CellType = GridCellTypeName.TextBox
  e.Style.Borders.Right = New GridBorder(GridBorderStyle.Solid, Color.FromArgb(100, 100, 100), GridBorderWeight.Thin)
  e.Style.Borders.Bottom = e.Style.Borders.Right
  e.Style.Borders.Left = New GridBorder(GridBorderStyle.Solid, Color.White, GridBorderWeight.Thin)
  e.Style.Borders.Top = e.Style.Borders.Left
 End If
End Sub