Private Sub MinDataGrid_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MinDataGrid.MouseUp

Dim htiKollaTräff As DataGrid.HitTestInfo = MinDataGrid.HitTest(New Point(e.X, e.Y))
If htiKollaTräff.Type = DataGrid.HitTestType.Cell Then
MinDataGrid.CurrentCell = New DataGridCell(htiKollaTräff.Row, htiKollaTräff.Column)
MinDataGrid.Select(htiKollaTräff.Row)
End If

End Sub