Form load Event

[User2004]

Вернее даже,событие-"Form loaded".
В поиск не ходил,потому,что не представляю,как сформулировать запрос.
В общем нужно ,чтобы Label1.Visible = True выполнялось после загрузки формы через определённое время.
Т.е. какое событие,происходит после загрузки формы,чтобы начать отсчёт счётчика?
К примеру:

Private Sub Form_Load()
Dim i
For i = 0 To 900000000
Next i
Label1.Visible = True
End Sub

Ждёт 900000000 i ,а потом выводит форму с лабелью
Как сделать,чтобы после Form load выждать 900000000 i и только после этого сделать Label1.Visible = True ?
Надеюсь объяснил понятно

[Amed]

Sleep.

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

Private Sub Form_Load()
Form1.Show
DoEvents
Sleep 1000 '1000 мс

Label1.Visible = True
End Sub

За декларацией - в Api-Guide

[User2004]

Cпасибо,счас посмотрю

[User2004]

To Amed:
Спасибо!

DoEvents
Это то,что было нужно!!
Thasks a lot!

[alibek]

Это не подходит, если форма модальная.
Рекомендую использовать следующую схему:

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

Load Form1
Form1.Init




' Form1
Option Explicit

Public Sub Init(Optional ByVal Modal As Boolean = False)
  Debug.Print "Loaded."
  Sleep 1000
  Label1.Visible = True
  If Modal Then
    Me.Show vbModal
  Else
    Me.Show vbModeless
  End If
End Sub

Private Sub Form_Load()
  Debug.Print "Loading..."
End Sub


[User2004]

Спасибо,Алибек,форма не модальная sleep рулит!

[alibek]

Вообще-то дело не в Sleep...