Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
Dim Selected As Boolean
If SelectedRows.Contains(RowId) Then
SelectedRows.Remove(RowId)
Selected = False
Else
SelectedRows.Add(RowId)
Selected = True
End If
Dim Index As Int = B4XTable1.VisibleRowIds.IndexOf(RowId) 'Find the index of the visible row
SetRowColor(Index, Selected) 'Set its color
End Sub