Совсем уж необычная ошибка

[Hatter]

Вобщем, сколько уже работаю с VB, ни разу ничего подобного не встречал. Может, конечно, тут банальная ошибка, ибо с двумя окнами я, как ни странно это бы ни звучало, почти не работал. Вобщем, описываю все по порядку:

Есть две самые обычные формы. Вторая форма открывается с меню первой:

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

Private Sub tex1_Click()

Dim TempExpl1 As TempExpl
Set TempExpl1 = New TempExpl

TempExpl1.Show

End Sub

Я не применил просто TempExpl.Show, дабы вторая форма не висела в памяти после своего закрытия до закрытия всей проги.
Все отлично, по закрытии второй формы, ее память освобождается. Но мне нужно, чтобы по закрытии первой формы убивалась и вторая, если она не закрыта. Казалось-бы, задача проще некуда, однако ни Unload TempExpl1, ни Set TempExpl1=Nothing в Form_Unload первой формы не пашет, вторая форма так и висит открытой. Помогло лишь End в процедуре закрытия первой формы. Я обрадовался, откомпилил в *.EXE и запустил. И тут пошли глюки: в компиляторе VB все пашет супер, а Exe-шник при закрытии выдает ошибку вида "Память не может быть read" и предлагает пожаловаться Билли. Что делать? Может, я что-то упустил? Разъясните мне пожалуйста, все тонкости моих манипуляций с формами...

З.ы. Как сейчас выяснил, ошибку выдает, даже если вторая форма не открывалась вообще.

[Antonariy]

Ага, End глючная команда.
Dim TempExpl1 As TempExpl нужно объявлять на уровне формы, а не процедуры.

[Hatter]

Если объявлять Dim на уровне первой формы, то при закрытии второй формы память, занятая ею, не освободится до закрытия всей проги.

[Viper]

Делов то

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

TempExpl1.Show , Me

[Hatter]

Спасибо огромное, это помогло. Принцип действия сей строчки понял.