Dim dt = New DataTable
With dt.Columns
.Add("Features", GetType(String))
.Add("Plan A", GetType(String))
.Add("Plan B", GetType(String))
.Add("Plan C", GetType(String))
.Add("Plan D", GetType(String))
End With
dt.Rows.Add("CUSTOMER SERVICE", "24/7", "24/7", "24/7", "24/7")
dt.Rows.Add("MONTHLY FEE", "$10", "$10", "$10", "$10")
dt.Rows.Add("FREE TEXT", "1000", "1000", "1000", "1000")
dt.Rows.Add("FREE CALLS", "5 hours", "5 hours", "5 hours", "5 hours")
dt.Rows.Add("DATA", "1 GB", "1 GB", "1 GB", "1 GB")
dt.Rows.Add("SPECIAL FEATURES", "Customizable", "Customizable", "Customizable", "Customizable")
With grid
.BackgroundColor = Me.BackColor
.ReadOnly = True
.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
.ColumnHeadersHeight = 70
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
.RowTemplate.Height = 80
.RowHeadersVisible = False
.AllowUserToAddRows = False
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
.EnableHeadersVisualStyles = False
.BorderStyle = BorderStyle.None
.CellBorderStyle = DataGridViewCellBorderStyle.SingleHorizontal
.GridColor = Color.LightGray
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.None
.ColumnHeadersDefaultCellStyle.BackColor = Color.FromArgb(255, 185, 35)
.ColumnHeadersDefaultCellStyle.Font = New Font("Arial", 18, FontStyle.Bold)
.DataSource = dt
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.DefaultCellStyle.SelectionBackColor = .DefaultCellStyle.BackColor
.DefaultCellStyle.SelectionForeColor = .DefaultCellStyle.ForeColor
.Columns(0).Width = 300
For n = 1 To .Columns.Count - 1
.Columns(n).Width = 220
Next
End With