Как сделать Select All в гриде True DBGrid Pro 7.0? - VB

Формулировка задачи:

Собсс-с-сно сабж. Встроенного метода в True DBGrid''е не нашёл. Сделал пока так:

Private Sub SelectAllRows(ByVal Grid As TDBGrid)
    Dim memBookmark As Long, memDisplayLine As Long
    
    On Error GoTo Exit_SelectAll
    
    Screen.MousePointer = vbHourglass
    LockWindowUpdate Grid.hWnd '' << чтобы не терять время на перерисовку грида при MoveNext
    
    With Grid
        '' всё имеет смысл, если есть записи
        If .ApproxCount > 0 Then
            memBookmark = .Bookmark  '' << запоминаем позицию в рекордсете
            memDisplayLine = .Row    '' << запоминаем положение текущего ряда в гриде
            '' добавляем все ряды грида в коллекцию SelBookmarks:
            .MoveFirst
            .SelBookmarks.Add .Bookmark
            Do While Not .EOF
                .SelBookmarks.Add .Bookmark
                .MoveNext
            Loop
            '' восстанавливаем позициюю рекордсета:
            .Bookmark = memBookmark
            '' восстанавливаем положение текущего ряда в гриде:
            If .Row >= 0 And .Row <> memDisplayLine Then .Scroll 0, (-1) * memDisplayLine
        End If
    End With
    
Exit_SelectAll:
    LockWindowUpdate 0& '' << восстанавливаем перерисовку грида
    Screen.MousePointer = vbDefault
End Sub

Но т.к. это способ тупого перебора, то тормозит страшно (на больших объёмах данных). Гораздо быстрее получается, если выделить первый ряд, протащить "лифт" скроллбара до самого низа, и удерживая SHIFT выделить последний ряд! Но не эмулировать же это программно! ) Какие есть идеи?!

Решение задачи: «Как сделать Select All в гриде True DBGrid Pro 7.0?»

textual
                            Листинг программы 
                        

                            With TDBGrid1
    .SelStartCol = 0
    .SelEndCol = .Columns.Count - 1
    MsgBox .SelBookmarks.Count
End With
                        