Visual Basic

Imports System.Windows.Forms

Public Class Exercise

   Dim dgvStudents As MyDataGridView = New MyDataGridView

   Private Sub Exercise_Load(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles MyBase.Load
      Text = "Students Records"

      dgvStudents = New MyDataGridView()
      dgvStudents.Location = New Point(12, 12)
      dgvStudents.Size = New Size(650, 100)

      Dim colFullName As DataGridViewColumn = New DataGridViewColumn
      colFullName.Name = "FullName"
      colFullName.HeaderText = "Full Name"
      Dim celFullName As DataGridViewCell = New DataGridViewTextBoxCell
      colFullName.CellTemplate = celFullName
      dgvStudents.Columns.Add(colFullName)

      Dim colPhone As DataGridViewColumn = New DataGridViewColumn
      colPhone.Name = "PhNum"
      colPhone.HeaderText = "Ph Number"
      Dim celPhone As DataGridViewCell = New DataGridViewTextBoxCell
      colPhone.CellTemplate = celPhone
      dgvStudents.Columns.Add(colPhone)

      Controls.Add(dgvStudents)

      dgvStudents.SetSelectedCellCore(0, 0, True)

   End Sub

End Class

Public Class MyDataGridView
   Inherits DataGridView

   Protected Overrides Sub SetSelectedCellCore( _
      ByVal columnIndex As Integer, _
      ByVal rowIndex As Integer, _
      ByVal selected As Boolean)

      MyBase.SetSelectedCellCore(columnIndex, rowIndex, selected)

   End Sub

End Class