Как сделать собственный мастер?

[mar_val]

Хочу в приложении создать собственный мастер создания нового файла.

Возник вопрос: как для главной формы, вызвавшей форму мастера, обозначить, что последняя была заполнена и теперь можно данные из формы забирать и саму её закрывать?

[BV]

Да как угодно. К примеру, во второй For Each hTextBox... и при True вызывать к.л. Sub в первой форме.

[mar_val]

Да, точно! Спасибо!

Сразу второй вопрос. Там же хочу сделать сплеш-скрин. в основной форме в Form_Load прописал загрузку/отображение формы сплеша, задержку (Sleep апишный) и выгрузку сплеша. Но во время Sleep-а содержимое сплеш-формы не отображается.... как быть?

[BV]

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

Option Explicit

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub Wait(ByVal lTime As Long)
    Dim lTickCnt As Long
    lTickCnt = GetTickCount()
    Do: DoEvents
    Loop Until (GetTickCount - lTickCnt) >= lTime
End Sub

Private Sub cmdOne_Click()
    Wait 500
    Beep
End Sub

[A.A.Z.]

SleepEx?

[BV]

Sleep(Ex) блокирует события.

[Amed]

Me.Show
Sleep

[A.A.Z.]

SleepEx 500, True тоже не то?

[tyomitch]

A.A.Z., тоже не то.
Amed, тоже не то. Отрисовка обеих форм идёт из одной нити, которую вы замораживаете. И кто же рисовать будет?

То: сделать на сплеше таймер, в таймере сплеш выгружать. Показывать сплеш модально. Никаких API, никаких проблем.