Dim c1table As C1FlexGrid.C1FlexGrid = CurrentTable.Grid Dim rc As C1FlexGrid.CellRange = c1table.Selection Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1)) msgbox("x=" & cellrect.x & " y=" & cellrect.y)