"Sticky" (multiple) selection

Private Sub ReportControl1_FocusChanging(ByVal NewRow As XtremeReportControl.IReportRow, ByVal NewColumn As XtremeReportControl.IReportColumn, ByVal NewItem As XtremeReportControl.IReportRecordItem, Cancel As Boolean)
   Cancel = True
   NewRow.Selected = Not NewRow.Selected
End Sub

Option Explicit

Private mo_SelectedRows As Collection

Private Sub Form_Load()
   ' Save the starting selection (usually the first row only).
   ' If your code selects other rows at startup programmatically, 
   ' then call RememberSelection after you have made the selection in code
   
   RememberSelection   ' Call this after you have populated your ReportControl and if you change the selection programmatically
End Sub

Private Sub ReportControl1_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)
   Dim lo_Hit As ReportHitTestInfo
   Dim lo_Row As ReportRow
   
   ' Determine if the mouse is over a selectable row
   Set lo_Hit = Me.ReportControl1.HitTest(x, y)
   If Not lo_Hit Is Nothing Then
      If Not lo_Hit.Row Is Nothing Then
         ' The mouse is over a selectable row
         
         ' Restore the previous selection since the MouseDown will
         ' reset the selection to a single (hovered over) item
         RestoreSelection
      
         ' Check to see if the current row was selected last time
         ' we saved the selection. If it was selected, then we
         ' should de-select it this click
         For Each lo_Row In mo_SelectedRows
            If lo_Row Is lo_Hit.Row Then
               ' Row was previously selected, so de-select it
               lo_Hit.Row.Selected = False
               Exit For
            End If
         Next lo_Row
         
         ' Save the current selection state
         RememberSelection
      End If
   End If
End Sub

Private Sub ReportControl1_MouseUp(Button As Integer, Shift As Integer, x As Long, y As Long)
   ' Mouse-up will reset the selection, so we should restore our previous selection if required
   
   Dim lo_Hit As ReportHitTestInfo
   
   ' Determine if mouse is over a selectable row
   Set lo_Hit = Me.ReportControl1.HitTest(x, y)
   If Not lo_Hit Is Nothing Then
      If Not lo_Hit.Row Is Nothing Then
         ' We are over a row
         ' Remove the currently selected item
         Me.ReportControl1.SelectedRows.DeleteAll
         
         ' Restore the saved selection from MouseDown
         RestoreSelection
      End If
   End If
End Sub

Private Sub RememberSelection()
   ' Save the current state of selected rows
   Dim lo_Row As ReportRow
   
   Set mo_SelectedRows = New Collection
   For Each lo_Row In Me.ReportControl1.SelectedRows
      mo_SelectedRows.Add lo_Row
   Next lo_Row
End Sub

Private Sub RestoreSelection()
   ' Restore the selection state saved in RememberSelection()
   Dim lo_Row As ReportRow
   
   For Each lo_Row In mo_SelectedRows
      lo_Row.Selected = True
   Next lo_Row
End Sub