Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles DataGrid1.CurrentCellChanged
        Me.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, _
        DataGrid1.CurrentCell.ColumnNumber)
    End Sub