Public Sub RemoveRow(Row As Int)
SV_ScrollChanged(SV.ScrollOffsetX, SV.ScrollOffsetY)
Dim sr As Int = SelectedRow
SelectRow(-1)
Data.RemoveAt(Row)
If Data.Size = 0 Then
ClearAll
Return
End If
For i = minVisibleRow To maxVisibleRow
HideRow(i)
Next
maxVisibleRow = Min(maxVisibleRow, Data.Size - 1)
minVisibleRow = Min(minVisibleRow, Data.Size - 1)
For i = minVisibleRow To maxVisibleRow
ShowRow(i)
Next
If sr = Row Then
sr = -1
Else If sr > Row Then
sr = sr - 1
End If
SelectRow(sr)
SV.Panel.Height = Data.Size * RowHeight
SV_ScrollChanged(SV.ScrollOffsetX, Min(SV.ScrollOffsetY, SV.Panel.Height))
End Sub