Разные советы - Формы, окна

При загрузке стартовой формы, когда нужно ее некоторое время задержать на экране, я делаю это при помощи API - функции, а не при помощи пустого цикла For ... Next. На сколько я знаю, где-то вычитал, этот цикл  загружает процессор , что мешает работать в многозадачной среде, а функция API - нет.
Делается это так :

В модуле программы описываем  API - функцию

Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
 
В Form_Load стартовой формы пишем следующий код, где  Form1 является стартовой.

Private Sub Form_Load()
  Form1.Show
  DoEvents
  Sleep 2000
  Unload Form01
  MDIForm1.Show
End Sub

Sleep 2000 - дает задержку приблизительно на 3-4 секунды.

И тогда неважно что там за окно будет активным, ему будет присвоен заголовок "Я активное окно!". 

 Назад