Помогите с закрытием Form2

[theal]

Такая проблемма.Открываю form1.В форм лоад прописываю загрузку form2.Форма 2 должна подержаться на экране 15 секунд и закрыться при этом форма1 должна работать.Но при закрытии формы2 --закрывается и форма1..Как быть??
Уже пробывал
End
Unload form2
Unload Me
Ни один из способов не решил проблемму

[DeMONiZ]

Можешь отправить окно закрытие

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

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const WM_CLOSE = &H10

Dim hW&
hW& = FindWindow(vbNullString, "Form2" & Chr(0))
If hW& > 0 Then
PostMessage hW&, WM_CLOSE, 0&, 0&
End If



только это не совсем лучший вариант

[Xcode]

Вот этот код у меня работает нормально:

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

Dim t As Byte

Private Sub Form_Load()
Form2.Show
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
t = t + 1
If t = 15 Then Unload Form2
End Sub

[Лаборатор]

А в чем вопрос то?
Сначала
Unload Form1
Form2.Show
Потом в таймере:
Unload Form2
Form1.Show
Если ты, конечно, сдуру не прописал форму 2 как родительскую...

[dr.MIG]

theal, покажи код как загружаешь Form2.

[Xcode]

Лаборатор, зачем Unload Form1, если она должна работать?

Если ты, конечно, сдуру не прописал форму 2 как родительскую...

А Form1 тогда что, дочерняя? Как ты себе это представляешь, чтобы дочернее окно загружало родительское?
Или ты имел ввиду что Form2 выбрана в качестве Startup Object? Но тогда опять неувязка, прочитай внимательно первый пост.

[Лаборатор]

Ну ладно, Form1.Hide!
Я просто предложил вариант, без сложного кода!

[iGrok]

Ну ладно, Form1.Hide!
Я просто предложил вариант, без сложного кода!

Ты читать не умеешь, или просто не хочешь? При чём тут Hide, если она не должна скрываться?