[Taha Okla]

كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
   If DataGridView1.SelectedCells.Count < 1 Then Exit Sub

   Text1.Text = DataGridView1.Columns(DataGridView1.CurrentCell.ColumnIndex).HeaderCell.Value
End Sub