Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseUp
        Dim pt = New Point(e.X, e.Y)
        Dim hi = DataGrid1.HitTest(pt)
        If hi.Type = DataGrid.HitTestType.Cell Then
            DataGrid1.CurrentCell = New DataGridCell(DataGrid1.CurrentRowIndex, _
              1)
            DataGrid1.Select(hi.row)
        ElseIf hi.type = DataGrid.HitTestType.ColumnHeader Then
            DataGrid1.CurrentRowIndex = 0
            DataGrid1.Select(0)
        End If
    End Sub