- Код: Выделить всё
Private Sub Form_LostFocus()
MsgBox "Form2_LostFocus"
End Sub
Сообщение не выскакивает. Почему это так?
И дело не только в этом. Форма не выгружается из памяти даже после этого:
- Код: Выделить всё
Private Sub Form_Unload(Cancel As Integer)
Unload Form3
Unload Form2
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Log
Unload Form1
Set Form3 = Nothing
Set Form2 = Nothing
Set Form4 = Nothing
Set Form5 = Nothing
Set Form6 = Nothing
Set Form7 = Nothing
Set Form8 = Nothing
Set Form9 = Nothing
Set Log = Nothing
Set Form1 = Nothing
End
End Sub
