Private Sub wndReportControl_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)
   Dim lo_Row                                     As ReportRow

   Set lo_Row = wndReportControl.HitTest(x, y).Row
   If Not lo_Row Is Nothing Then
      If Not lo_Row.GroupRow Then
         m_FirstSelection = lo_Row.Index
      End If
   End If
End Sub

Private Sub wndReportControl_MouseMove(Button As Integer, Shift As Integer, x As Long, y As Long)
   Dim lo_Hit                                     As ReportHitTestInfo
   Dim i                                          As Long
   Dim l_Step                                     As Long

   If Button = vbLeftButton Then
      If m_FirstSelection >= 0 Then
         Me.wndReportControl.SelectedRows.DeleteAll
         Set lo_Hit = Me.wndReportControl.HitTest(x, y)
         If Not lo_Hit Is Nothing Then
            If Not lo_Hit.Row Is Nothing Then
               If lo_Hit.Row.Index < m_FirstSelection Then
                  l_Step = -1
               Else
                  l_Step = 1
               End If

               For i = m_FirstSelection To lo_Hit.Row.Index Step l_Step
                  If Not Me.wndReportControl.Rows(i).GroupRow Then
                     Me.wndReportControl.Rows(i).Selected = True
                  End If
               Next i
            End If
         End If
      End If
   End If
End Sub

Private Sub wndReportControl_MouseUp(Button As Integer, Shift As Integer, x As Long, y As Long)
   m_FirstSelection = -1
End Sub

Private Sub Form_Load()
    m_FirstSelection = -1
End Sub