Чтение из большой текстовухи в ListView - VB

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

Ну, пример прилагаю, иначе не объяснишь.
Есть список телефонов в столбик.
В тестовом test.txt примерно 21000 записей.
Для чтения текстовухи используется некий класс ClsText, стибренный не помню уже как давно кажется на этом форуме.
Даб не скучно было на это смотреть выводится форма FormProgress, отражающая как движутся дела.
Проблемы две.
1. Процесс все замедляется, замедляется и может сдохнуть где-то после 15000. А на нетестовом более нагруженном графикой и т.п. проекте после 10000. Это если не дышать. Если елозить мышью и т.п. то можно сдохнуть его и побыстрее.
2. По основной форме лучше не "елозить" -можно и завесить. Как минимум будет внешне "не отвечать".
Как оптимизировать это дело с точки зрения красивого восприятия/устойчивости и м.б. скорости?
Что можно сделать?
(FileSystemГлюкоObject не предлагать).
Подчеркну, что если список на 1000-2000 номеров то проблемы/дискомфорт "почти не ощущаются".

Решение задачи: «Чтение из большой текстовухи в ListView»

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

                            nn = 0
    For i = 1 To N
        nn = IIf(nn = 100, 1, nn + 1)
        If nn = 100 Then DoEvents

                        