Заполнение FlexGrid - оптимизация

[Чудик]

Заполняю FlexGrid из рабочей книги Excel таким образом:

Код: Выделить всё

       
For i=1 to 500 step 8
For DayValue = 4 To 42
         .TextMatrix(CurrentRow, DayValue) = xl.Sheets(ns + 1).Cells(i + 6, DayValue + 4)
         .TextMatrix(CurrentRow + 1, DayValue) = xl.Sheets(ns + 1).Cells(i, DayValue + 4)
         .TextMatrix(CurrentRow + 2, DayValue) = xl.Sheets(ns + 1).Cells(i + 7, DayValue + 4)
         .TextMatrix(CurrentRow + 3, DayValue) = xl.Sheets(ns + 1).Cells(i + 1, DayValue + 4)
         .TextMatrix(CurrentRow + 4, DayValue) = xl.Sheets(ns + 1).Cells(i + 2, DayValue + 4)
         .TextMatrix(CurrentRow + 5, DayValue) = xl.Sheets(ns + 1).Cells(i + 5, DayValue + 4)
        Next DayValue       
     
    CurrentRow = CurrentRow + 6
    BarValue = BarValue + StringForProduct
    frmMDI.Bar.value = BarValue
    Next i


Прога при этом немного призадумывается. Там, где она будет работать компы более слабые, поэтому, думаю, люди вообще успеют вздремнуть.
Нельзя ли как-то это дело ускорить? Может код у меня немного деревянный?

[Sirik]

Можно так поступить: попробуй вставить DoEvents в главном цикле заполнения.
Скорость не изменется, зато юзер будет видеть процесс заполнения таблицы

[Чудик]

Да, но мне нужна именно скорость, визуализация процесса - это не проблема.