Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles dgWGRTag.CurrentCellChanged
        Dim dt As New DataTable()
        Dim _i As Integer
 
        dt = CType(Me.DataGrid1.DataSource, DataTable)
        _i = Me.dgWGRTag.CurrentCell.ColumnNumber
        me.Label1.Text = dt.Columns(_i).ToString)
End Sub