Функция DoEvents

Функция передает управление операционной системе для обработки событий и сообщений, ждущих в системной очереди и всех нажатий клавиш из очереди SendKeys. После обработки всех событий управление возвращается приложению(следующий за строкой DoEvents инструкции. Применяется для обеспечения возможности прерывания пользователем какой-нибудь длительной операции, выполняемой программой

Функция возвращает значение типа Integer, определяющих число открытых форм в Visual Basic, в других приложениях возвращается 0

' Создание переменной для хранения
' числа загруженных и видимых форм VB
Dim I, OpenForms
For I = 1 To 150000  ' Начало цикла
 If I Mod 1000 = 0 Then  ' Если цикл выполнен 1000 раз
' Передает управление операционной системе
 OpenForms = DoEvents 
 End If
Next I